S^S^SSsCHOOl 

MONTCREY CA 93943-5101 





« 





i 



NAVAL POSTGRADUATE SCHOOL 

Monterey, California 




THESIS 



SECURING APPLICATIONS 
IN PERSONAL COMPUTERS: 

THE RELAY RACE APPROACH 

by 

James Michael Wright 
September, 1991 

Thesis Advisor: MosheZviran 



Approved for public release; distribution is unlimited 



T 2593 n 






REPORT DOCUMENTATION PAGE 



REPORT SECURITY CLASSIFICATION 
CLASSIFIED 


lb RESTRICTIVE MARKINGS 


SECURITY CLASSIFICATION AUTHORITY 


3 DISTRIBUTION/AVAILABILITY OF REPORT 
Approved for public release; distribution is unlimited. 


DECLASSIFICATION/DOWNGRADING SCHEDULE 


'ERFORMING ORGANIZATION REPORT NUMBER(S) 


5 MONITORING ORGANIZATION REPORT NUMBER(S) 


NAME OF PERFORMING ORGANIZATION 
ival Postgraduate School 


6b OFFICE SYMBOL 
(If applicable) 

55 


7a NAME OF MONITORING ORGANIZATION 
Naval Postgraduate School 


ADDRESS (Oty, State, and ZIP Code) 
onterey,CA 93943 5000 


7b ADDRESS (City, State, and ZIP Code) 
Monterey, CA 93943 6000 


1 NAME OF FUNDING/SPONSORING 
RGANI2ATION 


8b OFFICE SYMBOL 
(It applicable) 


9 PROCUREMENT INSTRUMENT IDENTIFICATION NUMBER 


: ADDRESS (C/ty, State, and Z/PCodeJ 


10 SOURCE OF FUNDING NUMBERS 


Program Hement No 


PrujCet fx o 


No 


Worpi unit Aeceviion 
Number 



1 TITLE (Include Security Classification) 

KCURING APPLICATIONS IN PERSONAL COMPUTLKS; THE RElJ\Y RACE APPROACH 



2 PERSONAL AUTHOR(S) Wright, James M. 



3a TYPE OF REPORT 


13b TIME COVERED 


14 DATE OF REPORT (year, month, day) 


15 PAGE COUNT 


taster’s Thesis 


From To 


September 1991 


107 



6 SUPPLEMENTARY NOTATION 



he views expressed in this thesis are those of the author and do not rellect the ofTicial policy or position of the Department of Defense or the U.S. 
overnment. 



7 COSATI CODES 


FIELD 


GROUP 


SUBGROUP 















18 SUBJECT TERMS (continue on reverse if necessary and identity by block number) 
Security, Personal Computer, Applicaion Level, Microcomputer 



9 ABSTRACT (continue on reverse if necessary and identify by block number) 



’his Thesis reviews the increasing need for security in a personal computer (P(') environment and proposes a new approach for securing PC 
applications at the application layer. The Relay Race Approach extends two standard approaches: data encryption and password access control at 
he main program level, to the subprogram level by the use of a special parameter, the '’Baton.” The applicability of this approach is demonstrated 
n an original Basic application and an existing Dbasel V application, representing both third generation language (3CL) and fourth generation 
anguage (4GL) environments. The Approach can add to overall network security in the PC 1J\N environment as well. The Approach is 
uccessful and proposed enhancements can strengthen the Approach, 



!0 DISTRIBUTION/AVAILABILITY OF ABSTRACT 

Q UNClASSlHtD^UNLIMnLD Q SAMI AS KLPOKT Q DIlCUStKS 


21 ABSTRACT SECURITY CLASSIFICATION 
Unclassified 


2d NAME OF RESPONSIBLE INDIVIDUAL 
Joshe Zviran 


22b TELEPHONE f/nc/ude Area code) 
408-G46 2489 


22c OFFICE SYMBOL 
AS7\’ 



)D FORM 1473,84 MAR 83 APR edition may be used until exhausted SECURITY CLASSIFICATION OF THIS PAGE 



All other editions are obsolete \j nclassirieci 



1 



Approved for public release; distribution is unlimited. 



Securing Applications in Personal Computers: 

The Relay Race Approach 

by 

James Michael Wright 
Lieutenant Commander, United States Navy 
B.S., University of Florida, 1980 

Submitted in partial fulfillment 
of the requirements for the degree of 

MASTER OF SCIENCE IN COMPUTER SYSTEMS MANAGEMENT 

from the 

NAVAL POSTGRADUATE SCHOOL 
September 1991 



ABSTRACT 



This Thesis reviews the increasing need for security in 
a personal computer (PC) environment and proposes a new 
approach for securing PC applications at the application 
layer. The Relay Race Approach extends two standard 
approaches: data encryption and password access control at 
the main program level , to the subprogram level by the use 
of a special parameter, the "Baton". The applicability of 
this approach is demonstrated in an original Basic 
application and an existing Dbase IV application, 
representing both third generation language (3GL) and fourth 
generation language (4GL) environments. The Approach can 
add to overall network security in the PC LAN environment as 
well. The Approach is successful and proposed enhancements 
can strengthen the Approach. 
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I . INTRODUCTION 



The proliferation of information systems in virtually 
all areas of business and government has increased the 
importance of computer security issues. As more people 
become computer literate, the risks of ill-intentioned 
individuals obtaining unauthorized access or violating the 
integrity and validity of data grow. Potential solutions to 
computer security risks are varied and numerous because 
different types of computer hardware, operating systems, and 
application software have different security strengths and 
weaknesses . 

Different environments and applications require varying 
levels of security and security measures. Some environments 
need to target their security measures toward threats of 
accidental data corruption while others are primarily 
concerned with unauthorized access to sensitive information. 
Another computer security issue is system protection from 
viruses, worms, trojan horses, etc. 

Widespread use of personal computers and growth of end 
user computing have introduced myriad security concerns. 
Almost every personal computer user is likely to view virus 
protection, data backup, floppy disk control, and data 
encryption as primary computer security issues (Murray 1989, 
Stephenson 1989, Brown 1989) . However, many personal 
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computer security concerns for the most part remain largely 
unaddressed at this time (Pfleeger^ 1989) • Moreover^ the 
growing population of knowledgeable personal computer users 
increases the numerical chances of security breaches 
involving personal computers . 

This research explores the unique security issues 
involving personal computers and proposes a new approach for 
securing personal computer applications and data. 
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II. SECURITY IN PERSONAL COMPUTERS 



The use of personal computers, including microcomputers, 
office automation workstations and intelligent workstations, 
has spread substantially in recent years. Since the 
introduction of these systems, in the late 1970s, they have 
undergone far reaching changes and improvements which have 
brought them almost to the level of performance of large 
computers (Giladi and Zviran, 1989) . Analysis of the 
development and characteristics of personal computers and 
large systems shows that the processing speed of present 
personal computers is equal or even superior to that of the 
main large systems that were in use during the late 1970s 
(e.g., IBM 370 series) . 

The basic security problems for personal computers are 
the same as those for every other computing environment: 
applications require secrecy, integrity and availability 
applied to programs and data. However, security problems of 
personal computers are more serious than those of mainframes 
or mini computers due to the lack of security tools and 
mechanisms. Many of the hardware and software facilities 
important in assuring security are inappropriate and 
unavailable in the personal computer environment. 

The security problem of personal computers is becoming 
even more meaningful as these machines are being integrated 
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into computer networks. While many personal computers are 
being used in a stand-alone mode, others are being connected 
to networks as front-end terminals and processors, becoming 
a weak link in the network security chain. This problem 
becomes more crucial in the open system interconnection 
(OSI) environment. As the goal of an OSI environment is 
approached it becomes easier and more economical to connect 
computers and share resources. Logically, more PCs will be 
integrated into network systems. As a result, national 
organizations as well as users are becoming concerned with 
the vulnerability of personal computers (NCSC, 1985; NTISSC, 
1987; Post and Kievit, 1991) . 

As the name implies, personal computers were initially 
envisioned as being used by one person. Simple physical 
security measures would supply the necessary measure of 
security. This single user view is evident in the design of 
the popular personal computer operating system, MS-DOS. In 
most organizations today however, PCs are not personally 
allocated (Gogan, 1991) . In view of this, more security is 
sometimes required. There is a definite lack of tools to 
provide security for personal computers . 

As the popularity and power of personal computers grows, 
more people want and obtained access to them. Personal 
computers distribute computing power to virtually all 
physical locations within an organization, unlike large 
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machines. For the first time the computing power is not 
under the control of computer professionals. Persons 
responsible for mainframe or mini-computer security have 
limited control over how personal computers were being used 
within organizations. Generally, personal computer users 
lack the sensitivity toward computer security issues 
exhibited by mainframe and mini computer operators. The 
personal and organizational computer security mechanisms 
evident in large systems are not automatically in place for 
personal computers . 

A. HARDWARE 

The first IBM personal computer was built around the 
8088 processor. This processor had no protection scheme. 

All memory locations were open and unguarded. There were no 
privileged instructions available only t.o the operating 
system or trusted kernel. The newer 80286 and 80386 CPUs 
have stronger protection capabilities but the MS-DOS 
operating system is not capable of exploiting them (Post, 
1991; Pfleeger, 1989). 

Common hardware add-on security measures include 
physical security measures, security modules, and locks and 
keys. Each provides various degrees of security against 
certain types of threats while exhibiting weaknesses against 
others . 
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Locking doors to rooms containing computers is effective 
but in most cases not feasible. Too often it is necessary 
to allow open access to a room containing the computer. 
Disconnecting and locking the computer' s keyboard in a desk 
drawer or cabinet provides good security without limiting 
access to an office space. Unfortunately, physical security 
measures limit access to all of the computer's programs, not 
just the sensitive ones. This weakness can lead to under- 
use of computer assets . 

Security modules are expansion boards which plug into 
industry standard slots on personal computer motherboards to 
provide security. They usually perform in concert with 
software utilities . Security modules usually prevent 
booting from other than the fixed hard disk drive. This 
ensures that access control software stored on the fixed 
disk is run upon boot-up. Because the modules must plug 
into standard slots for compatibility reasons it would be 
easy for an intruder to locate and remove them. Many casual 
personal computer users possess sufficient knowledge to 
quickly open a computer's case, identify specific expansion 
boards and remove the security module (Stephenson, 1989/ 
Zarger, 1988) . 

Key type locks coupled to power switches are often used 
in personal computers as security measures . These locks are 
an "all or nothing” device. Those who have a key have 
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access to all programs and data and those who do not have a 
key have access to nothing. They cannot provide universal 
access to public applications and provide security for 
private programs and data. Additionally, locking power 
switches can be defeated quite easily if the computer is 
housed in a standard case. Once the standard "easy access" 
case is opened, it is a simple matter to "hot wire" the 
switch to defeat the lock. 

Hardware security solutions are enhanced when cases and 
fasteners are used which are non-standard and require 
special tools or keys for access or removal. Additionally, 
epoxy coatings are useful in protecting hardware items from 
tampering measures such as hot wiring switches. As with 
most security issues, using optimum combinations of security 
measures greatly enhances personal computer security 
effectiveness . 

B . SOFTWARE 

Any computer system has, usually, two different types of 
software: an operating system and application programs. The 
operating system consists of the system programs, command 
interpreter, and utilities. The operating system is the 
focal point for exploring security issues. Application 
programs are those which accomplish processing desired by 
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the computer user. Application programs make calls to, or 
use, the operating system to accomplish lower level tasks. 

1 . Operating Systems 

The operating system is the inner-most software 
layer of a computer system according to the "virtual 
machine" model (Tanenbaum, 1990) . It accomplishes tasks for 
users and/or the application programs and shields them from 
complex hardware details. Transparent to users and 
applications, the function of the operating system is to 
present the user with the equivalent of an extended machine 
or virtual machine that is easier to program than the 
underlying hardware. Its primary task is to keep track of 
resource usage, to grant resource requests and account for 
their usage, and to mediate conflicting requests from 
different programs and users (Tanenbaum, 1987) . 

At their advent, personal computers were initially 
equipped with 4 KB of main memory. The operating system had 
to be small enough to be loaded into this small memory space 
and still leave room for an application program to run. The 
early developers of personal computers and their operating 
systems did not expect these machines to grow in popularity 
as they have. The operating system was written to provide 
compactness and functionality in a "personal" environment. 
This meant one user, one program at a time. Under MS-DOS, 
anyone with basic knowledge can access and/or change any 
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file or memory location. The current trend is toward 
personal computer power houses shared by several workers 
able to run several applications simultaneously utilizing up 
to 8 MB of main memory. With multiple users instead of the 
envisioned personal use^ MS-DOS does not provide any measure 
of security. In examining MS-DOS it is clear that it has 
limitations which cripple its capability to grow into a 
full-fledged operating system capable of supporting and 
managing systems which are now in demand. 

MS-DOS's major limitation is that when conceived^ it 
allotted only enough bits in its address format to access a 
maximum of 640 kilobytes of main memory directly. This 
limit remains in place today because of market pressures for 
downward compatibility. The most powerful applications 
programs tend to use most of the 640 kb of memory leaving 
only enough for the underlying operating system. To install 
security mechanisms in MS-DOS would undoubtedly reduce the 
memory space available for use by application programs to an 
even lower value. It seems that the market pressure for 
freeing up memory for applications is far greater than any 
pressure to add security functions to MS-DOS. 

Although most operating systems for large systems 
provide adequate security functions, MS-DOS continues to 
serve as the personal computer standard with virtually no 
security capability. Market pressure for compatibility and 
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maximum application space will defeat any move to retrofit 
MS-DOS with security functionality, 

2 . Utilities 

Utilities are separate system programs that 
accomplish tasks for users. Their normal function is system 
management. Since they are optional, commercial software 
programs are not written to use them. Utility programs are 
very important in security of personal computer systems . 
Because the operating system has no security capability, 
personal computer users often use utility programs to 
protect their data and programs. There are several 
different ways in which utility programs are commonly used 
for security in the personal computer environment. These 
include encryption of data, password hard disk drive locks 
with or without hardware locks, and disk residue 
eliminators. The best commercially available solutions 
include elements of all three (Stephenson, 1989) . 

Encryption of data using utility programs provides 
excellent security of data. The application program can be 
run by intruders but the data they receive will be nonsense 
unless first decrypted. Encryption and decryption can be 
accomplished automatically using batch command files. There 
are two limitations which come to mind in using data 
encryption utilities. Data file encryption and decryption 
are disk intensive activities and consequently are very 
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slow. Additionally, simply securing the data does not keep 
intruders from running the application program. It simply 
keeps the intruder from understanding the data. In some 
cases it may be desirable to ensure intruders are unable to 
run the application program at all. 

Password hard disk drive boot locks are programs 
which require password authentication to boot and 
subsequently access the hard drive. They are fast, compact 
and work well against casual, novice intrusion attempts. 
Without hardware enhancements, however, they can be bypassed 
if the intruder boots the computer from a bootable MS-DOS 
floppy (Stephenson, 1989) . 

Additionally, access to even non-sensitive programs 
on the protected system requires password authentication. 
This limits the use of computer resources to trusted 
password holders only. In many cases it is desirable to 
secure only a portion of the functions the personal computer 
helps perform. 

Other utilities rid secondary memory of residue. 

When files on personal computers are deleted their data 
remains. The operating system simply deletes the file from 
the directory, rendering it unlocatable. Intruders can read 
or copy portions of the memory media in search of sensitive 
data. Simply deleting files does not protect the 
information. Utilities such as Norton's wipe disk and wipe 
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file rewrite the disk or file entirely with meaningless 
data. This destroys all residue left from sensitive files. 

These types of utilities are often bundled with 
hardware which disallows booting from any disk except the 
one protected by the software. 

3 . implications 

Application programs are the outer layer of software 
in the virtual machine model. The application software is a 
program which interfaces with the user and ensures that the 
tasks the user wishes to accomplish are completed. The 
application program makes calls to the operating system to 
accomplish low level tasks in order for the application to 
accomplish tasks initiated by the user. The application 
software is shielded from hardware details by the operating 
system . 

The operating system, MS-DOS, provides no security 
capability and utilities leave possible back doors and 
require password access procedures for all applications. If 
application programs provide their own security capability 
only programs which require security would require passwords 
for access. Moreover, common back doors associated with 
security utility programs are closed to intruders when 
application programs contain protection schemes. 

Application programs that need no protection are not limited 
by running under a larger, hypothetical, security-capable 
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operating system which would use more of the 640 kb main 
memory than the unprotected MS-DOS. A minor drawback to 
applications providing their own protection is that the 
consequential increase in program size occurs in each 
secured application program. This is a minor drawback as 
the additional required disk storage space would small. The 
additional RAM would be required only by programs needing 
protection^ thereby freeing maximum main memory for larger 
unprotected programs . 

C . DATA 

Two views of data security prevail: protection against 
inadvertent data loss and protection of unauthorized access 
to sensitive data. Inadvertent data loss is a problem of 
valuable, but not necessarily sensitive, data (Mensching and 
Adams, 1991). Procedures for precluding inadvertent data 
loss have been common knowledge since the personal 
computer's inception and will not be addressed here. Since 
the operating system as described previously provides no 
built-in file protection measures, data file encryption must 
be used to secure data in personal computers . 

Utilities are commonly used to encrypt and decrypt data 
files to ensure protection of sensitive data. Some hardware 
add-on boards also possess the capability to automatically 
encrypt and decrypt data files. There are many different 
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algorithms to encrypt and decrypt data. Some of which are 
considered to be safer than others. The Data Encryption 
Standard (DES) is the most common one, initially developed 
for the U.S. government for use by the general public. 

D. PERSONNEL 

Sensitivity to security issues and an attitude of 
responsibility on the part of all users in a personal 
computer environment are necessary for other measures to 
succeed in providing security. Whereas mainframes and other 
large systems have separate locked rooms and expert 
operators shielding them, personal computers are vulnerably 
distributed throughout an organization. For instance, no 
security system can succeed if a user leaves the area while 
a sensitive application is running. No matter how strong 
the security system, it is useless unless personnel have a 
healthy attitude toward security and are sensitive to 
possible threats (Pfleeger, 1989) . 
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III. THE RELAY RACE APPROACH 



A. INTRODUCTION 

In view of the personal computer operating system' s 
inability to provide security and the limitations associated 
with security modules and utilities, it becomes worthwhile 
to explore new techniques for securing individual 
application programs. Three major threats to the security 
of an application can be countered, to include unauthorized 
execution of the main program, data disclosure and 
unauthorized execution of parts of the program by executing 
subprograms directly. Traditional methods cover encryption 
of data files and securing main programs, while the Relay 
Race Approach extends protection to the subprogram level. 

1 . Application Access Control 

Personal computers are often used by different 
individuals running different application programs (Gogan, 
1991) . In most cases, all applications are stored on the 
same hard disk drive. Allowing access to certain programs 
by certain individuals while limiting access to valid users 
of other protected programs stored on the same disk is no 
trivial task in the PC environment . Since the MS-DOS 
operating system provides no security kernel, the solutions 
must be coded into the application programs. Each 
application program must check for access authorization and 
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take required measures to secure itself against intrusion. 
This is usually accomplished by an application-oriented 
Password checking scheme which protects the application at 
the main menu level . 

2 . Data File Security 

Intrusion is usually for the purpose of achieving 
access to the system data. One intrusion technique is to 
bypass the application programs entirely and attempt to gain 
access to the system data files directly. An intruder could 
simply browse the file or copy it for later examination at 
another computer. To overcome this problem, data files must 
be encrypted. 

3 . Intra-application Controls 

The growth in application software capabilities and 
the consequent growth in size has dictated that applications 
be designed as a collection of programs. In such a scheme, 
a main program calls on subprograms to accomplish specific 
tasks in support of the system. The main program can be 
secured with a password-checking scheme to prevent its 
unauthorized execution. However, access to functions and 
data can sometimes be achieved by executing subprograms 
directly without the main program, as depicted in Figure 
3.1. To preclude this type of intrusion some method of 
ensuring that all subprograms are called by their proper 
calling programs or subprograms must be devised. The 
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approach explored in this research will be called the relay 
race approach. 

B . IMPLEMENTATION CONCEPTS 

In order to counter the three threats three methods of 
protection are implemented in The Relay Race Approach. The 
first two measures are commonly used in the personal 
computer environment in an attempt to secure applications. 
One is basic password checking upon execution ensures user 
authorization, and the second employs automatic data 
encryption, decryption and deletion preclude theft of raw 
data files. However, to preclude program execution via an 
unprotected subprogram, all subprograms will check for a 
parameter which can only be valid if the subprogram was 
called via the main program as illustrated in Figure 3.2. 
This is a unique measure applied to individual application 
programs and it is from this third measure that the approach 
receives its name. In much the same way relay racers must 
pass a baton or be disqualified, subprograms must receive a 
certain parameter and pass it to subsequent subprograms or 
the program execution will be halted by the security system. 

1 . Password Storage and Mcuiagement 

There are two methods of storing valid passwords to 
be used by the system to authenticate users: including valid 
passwords in program source code and storing valid passwords 
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in encrypted data files. Including passwords in source code 
provides simplicity and security but requires recompilation 
for each password change. Using encrypted data files 
containing valid passwords precludes requirement for source 
code dissemination to user/ administrator but requires 
thoughtful implementation to ensure security. An intruder 
could encrypt his/her own password file with a different key 
and replace the real password file with his/her version 
(same filename) . In order to defeat this intrusion scheme 
the system must check to determine whether the password file 
is real or one planted by an intruder. The valid password 
file will contain a password to be checked against one in 
the compiled code. The intruder's file would not work if it 
did not contain this file checking password. A combination 
of both encrypted data file and compiled password ensures 
security and precludes source code dissemination and 
recompilation for routine password changes. 

2 . Baton and Baton Passing 

In order to ensure that subprograms are executed 
only when called by proper calling programs a global 
variable, or parameter, can be set upon password 
authentication and passed from the main program to the 
called subprograms. Subprograms can, in turn, pass the same 
parameter to any subprograms they call. Each subprogram can 
begin execution by checking this parameter before executing* 
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further and halt processing if the parameter is invalid. 

This is analogous to a relay race at a track meet. Without 
the baton being properly passed and received the relay team 
cannot complete the race . 

3. Data File Encryption 

Two types of encrypted data files are required for 
the relay race baton scheme: password file and data storage 
files. The password file is decrypted^ and the decrypted 
file is then read and deleted. The decryption process 
leaves the encrypted file intact so that when the system 
deletes the decrypted files ^ the original encrypted password 
file remains for use in future access attempts. Data 
storage files must be decrypted for reading and recrypted if 
new data is added or other changes are made. Once again all 
files decrypted during a process need to have the decrypted 
copy deleted as soon as possible after they are re- 
encrypted . 
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IV. APPLICATION IN A THIRD GENERATION LANGUAGE ENVIRONMENT 



A. ENVIRONMENT DESCRIPTION 

A simple test application was developed in compiled MS- 
BASIC. BASIC was chosen as the third generation language 
for a prototype due to its relatively low power and 
programmers' wide exposure to it. If the relay race scheme 
can be implemented in BASIC, it is reasonable to assume that 
it is possible to implement it in any of the known third 
generation languages . 

B. APPLICATION DESCRIPTION 

The prototype application is a simple, menu-driven, 
maritime minefield planning program designed to minimize the 
necessity for accurate small scale plotting on geographic 
charts . The program has options to input planning data, 
calculate mine drop instructions, save instructions to disk, 
and print instructions. The application programs and data 
are protected using The Relay Race Approach. 

The MS-DOS directory presentation for the application is 
provided in Figure 4.1. BASRUN20.EXE is a runtime package 
required for applications compiled separately such as the 
minefield planning application. MFPLAN.EXE is the main 
program containing password checking code and opening menu. 
The remaining .EXE files are subprograms which accomplish 
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the application's tasks. $ED.MNQ and $ED.NMQ are encrypted 
data and password files respectively. 
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Figure 4.1: MS-DOS Directory presentation of 

the application 



The threat of intrusion via subprogram defeating the 
password authorization and data encryption without baton 
passing is illustrated in a structure chart of an intrusion 
attempt (Figure 4.2) . When unprotected, an intruder needs 
only to write a small BASIC program to call MLRETREV.EXE and 
MINEPRNT.EXE in order to gain access to the system's 
sensitive data. By combining password checking, data 
encryption and the Relay Race Approach, this intrusion is 
thwarted (Figure 4.3) . 

C. TRANSFORMING CONCEPTS TO CODE 

1 . Handling Passwords and the Baton 

The first operation the scheme must accomplish is 
password checking. This operation is be accomplished as 
early as possible in the application. Figure 4.4 contains 
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Data ll!c 
SED.MNQ 






Figure 4.2: Siiiicture chart illustrating 
ht)\\ an intruder's program could call 
subprograms and acliicvc data 
access. 
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Program 
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Mlrelrev.exe 



Rclrieves data 
(ruin Ilk 



Minesave.exe 



Ap{^>cnds output to 
data file 








Data file 




SED.M.N'O 









{■igurc 4.3: Slnicliirc chart of Mine - 
lieid Piaiuiine Pros:ram 



the required BASIC source code to handle passwords and 
password checking and initialize the security baton. Line 9 
allows the program to be recalled from subprograms without 
requesting a password each time the main menu appears. 

Lines 40, 50 and 60 blank the display screen for password 
entry, input password and return normal function to the 
display screen. Line 70 creates a decrypted copy of the 
valid password file and names it "PWORD.DAT". During the 
execution of the "RCRYPT" program, the user will be prompted 
to enter an encrypt at ion key twice. Line 80 opens the 
PWORD.DAT file for input. Lines 90, 100, 110 initialize 

several variables to be used: N, a loop counter; FOUND$, a 
flag indicating wether a password is found to be valid or 
not; and BATON$, the global variable or parameter passed to 
subprograms to verify that access authorization has been 
checked prior to subprogram execition. If the password file 
is found to be empty, line 120 will call the violation 
routine, (lines 220-290) . Lines 140 and 150 input and check 
the first entry in the password file and ensure it is 
"scud" . This defeats intruders who might plant their own 
encrypted password file in place of the original. If an 
imposter password file is detected the violation routine is 
run. Lines 160-200 are the password checking loop where the 
input password (PASSWORD$) is checked against each valid 
password in the file (VALIDPWORD$ (N) ) . If end of file (EOF)" 
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is reached without a match the violation routine is run. If 



a match is found, lines 300-320 are run in order to close 
the password file, delete it and set the security baton 
(BATON$) valid. This allows subprograms to be called and 
run. The violation routine (lines 220-290) also closes and 
deletes the password file. Lines 240-260 provide a pause 
situation allowing displayed text message to be read by 
users before continuing program execution. Lines 350 to 450 
represent location of functioning non-security related 
application code. 
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9 IF BATON$ = "VALID" then GOTO 330 






10 


LOCATE 13,10 






20 


PRINT "Enter your password and press 


ENTER. " 


30 


LOCATE 15,15 






40 


COLOR 0 






1 50 


INPUT PASSWORD$ 






60 


COLOR 7 






70 


SHELL "RECRYPT $ED.NMQ PWORD.DAT" 






80 


OPEN "PWORD.DAT" for INPUT as #1 






90 


N = 0 






100 


FOUND $ = "F" 






110 


BATON $ = "INVALID" 






120 


IF EOF(l) GOTO 220 






140 


INPUT# 1, FILECHK$ 






150 


IF FILECHK$ = "scud" then GOTO 160 


else 


GOTO 220 


160 


IF EOF(l) GOTO 220 




f 


170 


N = N + 1 






180 


INPUT#1, VALIDPWORD$ (N) 






190 


IF PAS SWORD $ = VALIDPWOP^$ (N) THEN 


FOUND $ = "T" 


200 


IF FOUND$ = "T" then GOTO 300 else 


GOTO 


160 


210 


LOCATE 17,10 






220 


PRINT "Security Violation!" 






230 


LOCATE 19,10 






240 


PRINT "Press any key to continue." 






250 


A$ = INKEY$ 






260 


IF A$ = "" then 250 






270 


CLOSE 1 






280 


KILL "PWORD.DAT" 






290 


GOTO 500 






300 


CLOSE 1 






310 


KILL "PWORD.DAT" 






320 


BATON$ = "VALID" 






330 


(MINEFIELD 






400 


PROGRAM 






450 


BODY) 






1 500 


END 







Figure 4.4: Code required to check user's password 

and set "baton" variable 
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2 . Called Sxjbprogram Requirements 

Subprograms require very little additional code to 
accomplish the relay race scheme. As the baton is passed by 
the COMMON mechanism (sharing variables and values among 
programs) , a simple check of the security baton (BATON$) 
must be made before each program execution. If the value 
passed by this variable is valid, execution continues. If 
the value passed by this variable is found to be invalid, it 
means that the subprogram was called without valid password 
authentication. A violation routine is run and the program 
is aborted. Required source code for subprograms is 
presented in Figure 4.5. 



3 OPTION BASE 1 

4 DIM YTD (10) , TTD (10) 

5 COMMON BATONS, NA$, LAH$, IPLAD, IPLAM, IPLAS, LOH$, 
IPLOD, IPLOM, IPLOS, SPD, TRK,N, YTD () , TTD () 

20 IF BATONS = "VALID" GOTO 30 ELSE GOTO 60 
30 (PROGRAM 

40 - 

50 BODY) 

60 LOCATE 17,10 

70 PRINT "Security Violation!" 

80 LOCATE 19,10 

90 PRINT "Press any key to continue." 

100 AS = INKEYS 

110 IF AS = "" then 110 

120 END 



Figure 4.5: Code required in subprograms 
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3. Data Encryption, Decryption and Access Requirements 

a. Data Encryption Utility 

The encryption program used in this prototype 
is RCRYPT.COM, an MS-DOS utility. Many different data 
encryption utilities are available and most will work within 
this scheme. The application may need to be modified 
slightly depending on whether the encryption utility 
requires the key to be entered on the command line as a 
parameter or prompts the user for the key during execution. 
The RCRYPT.COM utility in the prototype prompts for the key 
during execution. 

b. Data File Manipulation 

This prototype uses one password file and one 
data file. A flat file of records is used because data for 
this application is small and response time is not a 
critical issue. AS shown in Figure 4.6 most of the data 
manipulations focus on decrypting and reading data. One 
subprogram (MINESAVE) allows for appending data to the data 
file. This case requires decrypting the data file, 
appending new data to the file and re-encrypting the file. 
The source code required for this operation is presented in 
Figure 4.7. 
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Figure 4.6: Description of data file manipulations 
for each of the programs in the Basic 
prototype application. 



40 PRINT "What name would you like to call the data?" 
50 INPUT NA$ 

60 SHELL "RCRYPT $ED.MNQ MINE.DAT" 

70 OPEN "MINE.DAT" for APPEND as #2 

80 WRITE #2,NA$,LAH$, IPLAD, IPLAM, IPLAS,LOH$, IPLOD, 
IPLOM, IPLOS, SPD, TRK,N 
90 FOR B = 1 to N 
100 WRITE #2, YTD (B) , TTD (B) 

110 NEXT B 
120 CLOSE #2 

130 SHELL "RCRYPT MINE.DAT $ED.MNQ" 

140 KILL "MINE.DAT" 



Figure 4.7: Code required for data file manipulation 

in MINESAVE subprogram 
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c. System Administration 

The application requires a system administrator 
to accomplish certain tasks. These tasks include steps to 
start the system, accomplishing data file housekeeping and 
changing passwords. Since it is not desirable to supply 
source code to all users, the application deliverables 
should include information indicating what the first entry 
in the password file needs to be. This entry should be 
unique or nearly unique among different copies of the 
application to preclude one systems administrator from 
intruding into another's copy. For example, line 150 Figure 
4.4 character string "scud" (FILECHK$) should be identified 
as the required first entry in the password file and should 
be different for each copy of the application. To start the 
system the administrator should add his/her desired 
passwords, nine at most, to the required first entry, 
encrypt the file with the desired case sensitive key and the 
name "$ED.NMQ" and delete the un-encrypted copy of the 
password file. 

The application should also include a data file 
with one set of test data included to preclude the system 
from attempting to decrypt and append to an empty file. A 
copy of this original data file should be maintained by the 
administrator and used for data housekeeping operations. 

The data file, like the password file, needs to be encrypte'd 
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and named in accordance with lines 130 and 70 of Figures 4.7 
and 4.4 respectively. 

Changing the passwords should be done regularly 
in any system and should be easy to accomplish so as not to 
discourage changes when needed. To change passwords, run 
RCRYPT.COM directly on the $ED.NMQ file and edit the file 
with new passwords. The required first entry of the file 
should not be changed or the system will reject the new 
password file as bogus. Re-encryption of the password file 
using a new encryption key is needed. Changing the key each 
time passwords are changed maximizes security. 
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V. APPLICATION IN A FOURTH GENERATION LANGUAGE ENVIRONMENT 



A. ENVIRONMENT DESCRIPTION 

The Relay Race Approach was installed into a previously 
implemented DBaselV database application. DBase was chosen 
because of its widespread familiarity and its non-procedural 
nature. If the approach could be easily grafted into an 
existing DBase IV generated application, it would be an 
effective approach for securing other existing applications. 

Fourth generation languages are often used in 
environments where end users build applications . Security 
may not be considered when users create applications. The 
Relay Race Approach shows promise as an efficient security 
measure for these existing end user applications . 

The DbaselV application generator allows users or 
developers to create fully functional menu driven database 
applications with little or no coding. Database structures, 
forms, reports and queries are created using user friendly 
graphical interfaces and then are combined to work together 
by the application generator. The application generator 
generates source code with comments which is compiled into 
object code that can be run either in the DBase IV 
environment or with a run-time module. 
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B. APPLICATION DESCRIPTION 



The application is the user version of an automated dive 
log. It is used for users to enter SCUBA diving events, and 
query reports such as logs or qualification reports from the 
database. There is another version which accesses the same 
database which is used by the system administrator for 
marketing and other business and organizational functions. 

The application accesses four database files; DIVER. DBF, 
SITE. DBF, DIVE. DBF and QUAL . DBF . It uses one data entry 
form file, DIVEFORM. SCR. Two query (.QBE) files were 
slightly modified for use: JOINl.PRG and QUALLIST . PRG . Two 
report files were built and used: LOG_REPO.FRM and 
QUALRPT.FRM. Finally, the application generator created two 
program files: DLUSER.PRG and USERBAR.PRG. 

Since the Relay Race Approach depends on passing 
parameters between programs, the structure of the 
application must be understood before the approach can be 
installed into an existing application. Since the source 
code was 95 percent generated by DbaselV the application 
must be reverse engineered, yielding a structure chart 
needed for understanding. Figure 5.1 is the structure chart 
for the application. Only JOINl.PRG and QUALLIST. PRG can 
access the data, so only procedures which can possibly call 
them need to have the additional source code installed. 
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Dbf02 Dbl03 Dbl04 Dbl’05 . 




Figure 5. 1 : Stnjcture Chart of Dive Log 
Application 
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These are DLUSER and MPDEF in DLUSER.PRG file, ACT03, ACT04 
in USERBAR.PRG file, and JOINl.PRG and QUALLIST.PRG files. 

C. TRANSFORMING CONCEPTS TO CODE 

1 . Handling Passwords and the Baton 

Checking password validity is accomplished first and 
the code required for this was inserted into the main 
program, DLUSER.PRG. Figure 5.2 shows the additional source 
code inserted at the very beginning of the DLUSER.PRG file. 
The set color commands ensure that the password is not 
echoed to the screen when the user types their' s. In order 
to get the prompt "Enter Password" on the screen and not the 
password itself, the prompt and the acceptance of the value 
for variable "PWORD" had to be separated by the set color 
command. This is why the ACCEPT string is a space. Set 
color is used again to return the screen to normal . Since 
most Dbase IV users will have the capability to compile 
programs, the passwords were compiled rather than stored in 
an encrypted file. The logic in the IF / ELSE clause is 
such that if no password is entered, and the error message 
which occurs is "ignored" by the user, the program 
VIOLATIO.PRG will be run, not the rest of DLUSER.PRG. Dbase 
defaults to the first statement when an error is encountered 
in an IF/ELSE clause and the user selects "IGNORE" at the 
error prompt. VIOLATIO.PRG displays a violation message and 
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terminates the program. If the password is found to be 
valid the data files are decrypted. Since the baton in 
DBase can be a true parameter instead of a shared variable 
as was the case in BASIC, a variable does not need to be 
set. When a procedure is called it simply needs to be 
called with a value which will be checked by the called 
procedure. Figure 5.3 illustrates the correct syntax for 
calling programs and procedures with the parameter required. 



03,3 SAY "Enter Password: " 

SET COLOR OF NORMAL TO B/B 

ACCEPT " " TO PWORD 

SET COLOR OF NORMAL TO W+/B 

IF (.NOT. PWORD=" TIGRIS") .AND. ( .NOT. PWORD="SCUD" ) 

.AND. ( .NOT. PWORD=" BAGDAD") 

DO VIOLATIO 
ELSE 

RUN PKUNZIP ADLDATA -sIRAQ 
** Rest of Program ** 



Figure 5.2; Code required for password checking in 
the main program for the Dive Log application. 



** Calling Program or Procedure ** 
DO MPDEF WITH "GOOD" 



** Called Program or Procedure ** 

PARAMETER BATON 

ON ERROR CANCEL i 

IF .NOT. BATON = "GOOD" 

DO VIOLATIO 
ELSE 

** Rest of Program ** 



Figure 5.3: Code required for calling subprograms 
and procedures with parameters. 
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2. Called Procedures or Sxabprograms Requirements 

Called subprograms or procedures which receive the 
security parameter BATON must contain the PARAMETERS 
statement as shown in Figure 5.3. It was discovered during 
testing that if an intruder attempted to call a subprogram 
or procedure directly without the required parameter, Dbase 
displays an error message displaying the (IF .NOT. BATON = 
"GOOD") line of source code and a prompt "PARAMETER NOT 
FOUND" . This would give the intruder information required 
to successfully call the subprogram or procedure on his next 
attempt. The "ON ERROR CANCEL" line terminates program 
execution when any error occurs to remedy the situation. 

The IF/ELSE clause checks for the security baton and runs 
the violation procedure or the rest of the program 
accordingly . 

3. Data Encryption, Decryption and Administration. 

Since the application uses four different data files 
the PKZIP/PKUNZIP utility programs were selected for 
encryption and decryption of data files. It allows for 
compression and encryption of multiple files into one single 
file. As depicted in Figure 5.2 the encryption key "IRAQ" 
is compiled into the program instead of being prompted from 
and entered by the user. 

The procedure ACT05 in the USERBAR.PRG file, (Figure 
5.1), is executed to exit the system. Data encryption and 
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residue housekeeping is accomplished here. The required 
code is shown in Figure 5.4 



RUN PKZIP ADLDATA -m -SIRAQ *.DBF 

Figure 5.4: Code required for encrypting data files 
and removing the decrypted data files. 

The system administrator has only to periodically 
recompile the source code changing passwords and encryption 
keys . Access to the source code should be limited to 
trusted personnel only as it contains information which 
would greatly simplify intrusion. 
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VI . THE RELAY RACE APPROACH AND LOCAL AFUEIA NETWORK SECURITY 



The explosion of personal computers in the workplace has 
led to the need for data communication and asset sharing 
among an organization's Pcs. Local area networks (LANs) 
efficiently provide these attributes and are being utilized 
extensively today. 

A. ELEMENTS AND FUNCTIONALITY OF LANS 

LAN implementation includes installing LAN hardware 
expansion cards in the computers which are to be linked, 
linking the computers together using a cabling system, and 
installing a LAN operating system on the machines. One of 
the machines is designated as the server and the rest are 
clients. The full operating system resides on the server 
while only a shell or subset resides on each client. In 
popular PC LANs the network operating system still utilizes 
MS-DOS but provides added network functions. 

Communication between machines or nodes in a network 
involves multiple communication protocols. Each protocol 
level uses functions provided at lower levels by lower level 
protocols . 

B. SECURITY IN LANS 

Most LAN operating systems provide security functions 
capable of multi-level security of files and physical 
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devices . These measures combined with certain physical 
security measures involving the network server can protect 
assets against casual intrusion attempts. However, if 
physical access to the network server can be gained an 
intruder could attempt to load a different copy of the 
network operating system onto the server and give himself 
access to protected files and/or devices. Many LANs place 
printers and other periphrials along side the server and the 
server therefore cannot be physically isolated from the 
users or public. 

C. ENHANCING OVERALL LAN SECURITY 

Even though network operating systems oftem provide 
security features, the Relay Race Approach can significantly 
strengthen overall security. The Relay Race Approach 
provides efficient security at the application layer 
complementing security features implemented at the LAN 
operating system layer. For example, if an intruder were 
capable of accessing the LAN server, load a different copy 
of the LAN operating system and attempt to access a 
protected application, additional security provided by the 
Relay Race Approach would significantly hamper his attempts. 
The additional layer of security would most likely end the 
intruder's attempt: at least for that session. 

Additionally, combining security measures implemented at the 
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LAN operating system layer with those at the application 
layer can reduce requirements for "armor plated" physical 
security measures such as heavy duty locks^ doors or 
cabinets for the network server. 

Both prototype applications were installed on a LAN. 

Both executed as expected and illustrated feasibility of the 
Relay Race Approach as a security measure for applications 
running on LANs . 
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VII. CONCLUSIONS 



Personal computer security is an issue of increasing 
importance to computer professionals. It is valuable to 
explore efficient methods of providing or enhancing PC 
security. The Relay Race Approach provides or enhances 
security in the PC environment efficiently. The Approach 
can be strengthened using deceptive measures to thwart 
intrusions by all but those thoroughly familiar with the 
application source code. 

A . THE NEED 

The increased need for PC security is evident in view of 
several recent trends. First, PCs are being used in an 
increasing number of different business areas. These 
include those areas where sensitive processing is common. 
Secondly, more persons are becoming familiar enough with 
PC's and MS-DOS to be considered capable of casual intrusion 
into marginally protected PC environments. Finally, the 
increase in public sensitivity to privacy of information 
issues dictates the need for increased security in areas 
once thought to be of a non-sensitive nature. 

B , REQUIRED ATTRIBUTES 

For these reasons an approach with the following 
attributes would be of significant value. It should be 
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compact, as application program size is of great concern in 
the PC environment. The approach should be flexible or 
multi-leveled, that is, it should allow public access to 
some applications and limit access to other application (s) 
to only their specified set of authorized users . The 
approach should be easy to implement, even in existing 
applications. Increasing end-user application development 
makes this a valuable attribute. The Relay Race Approach 
exhibits these desired attributes and is strong enough to 
withstand casual attacks from intruders with strong 
knowledge of MS-DOS and PCs. 

C. POSSIBLE ENHANCEMENTS 

The relay approach depends on the premise that an 
intruder does not have access to the application source code 
and knowledge of how the approach was implemented in the 
application. There are two modifications which could 
enhance security just in case knowledge of the approach 
and/or application source code is compromised: unique 
application copies and deceptive and dynamic baton 
variables. Additionally, disk file residue eliminators 
could strengthen security. 

I . Unique Application Copies 

First, it would be important to make different 
copies of the application utilize unique or nearly unique 
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password files. This would be accomplished by compiling 
many versions of the program, each using a different first 
entry in the password file (the password file check 
variable) . This would defeat an intruder who might have one 
copy of the application and attempt to insert his password 
file into another system and using it to gain access to the 
other system's data. 

2. Deceptive and Dynamic Batons 

To further help deceive intruders who might gain 
access to the program source code, the "baton" may be 
concealed. Suppose in the Basic application the baton 
variable were "MINEDIST#" instead of "BATON" and was of type 
integer. Figure 4.4. This would slow a potential intruder's 
conceptualization as he browses the source code in search of 
security hints. Additionally, dynamic batons can be 
employed. Such a baton variable can be set to valid 
indirectly through one or more intermediate variables which 
might appear to be accomplishing some arithmetic operations. 
The value given to the baton variable may also change often 
but retain some characteristic for the validity check. For 
instance, the baton could change value but retain even 
divisibility by 17 and the validity check would be designed 
to test for that . 
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3. Disk File Residue Eliminators 



Finally, using a filewipe type residue eliminating 
program instead of simple MS-DOS delete command in the 
application would provide an extra degree of security to 
counter random disk sector searches . 

The Relay Race Approach provides efficient, casual 
security for personal computer applications in today's 
environment of increasing PC security Threats . 
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Appendix A: Source code for Minefield Planning 

Application in BASIC. 



1 'MFPLAN.BAS - Prototype 2 4-21-91 of Relay Race Baton PC security system. 

3 OPTION BASE 1 

4 DIM YTD(10),TTD(10) 

5 COMMON 

baton$.na$,lah$,iplad,iplam,iplas,loh$,iplod,iplom,iplos,spd,trk,n,yt 

DO.TTDO 

7 DIM VALIDPW$(10) 

8 CIS 

9 IF BATON$="VALID’’ THEN GOTO 140 
18 LOCATE 13,10 

20 PRINT "Enter your password and press ENTER." 

21 LOCATE 15,15 

22 ■ *”^BU^CKEN SCREEN TO HIDE PASSWORD AS IT IS ENTERED & 

GET PASSWORD 

23 COLOR 0 

24 INPUT PASSWORDS 

25 ' **^"RESET 

SCREEN 

26 COLOR 7 

27 SHELL "RCRYPT SED.NMQ PWORD.DAT" ’ ****DECODE FILE OF VALID 
PASSWORDS AND CHECK USER’S FOR VALIDIPr' 

28 OPEN "PWORD.DAT" FOR INPUT AS #1 
30 N«0:FOUND$="F": BATON$*"INVALID" 

32 N-N+1 

34IFEOFf1)GOTO50 
36 INPUT# 1 , VALIDPWS(N) 

38 IF PASSWORD$=VALIDPV^/$(N) THEN FOUNDS="r 
40 IF FOUND$-'T" THEN GOTO 60 ELSE GOTO 32 

50 IF FOUND$=”F" THEN CLS:LOCATE 1 7,10:PRINT "Your password is invalid, 
access denied." 

51 ■ ****PAUSE TO 

READ MESSAGE 

52 LOCATE 19,10;PRINT "Press any key to continue.” 

54 AS=INKEY$;IF A$="" THEN 54 

56 CLOSE 1:KILL"PWORD.DAr ' ^**CLOSE PASSWORD FILE & ERASE IT 
58 GOTO 240 ' **^*STOP 

60 CLOSE 1:KILL "PWORD.DAT" 

62 BATON$»"VALID'’:' ****BUILD BATON 

80 CLS 

90 LOCATE 5,5:PRiNT "Welcome to Minefield Planning. A simple Basic program to" 
100 LOCATE 6,5;PR1NT "assist in planning air deployed minefields. Given IP lat" 

110 LOCATE 7,5:PRINT "and long, hole lat & long's, track, speed and trajectory" 

120 LOCATE 8,5;PRINT "the program will calculate and securely store and/or " 

130 LOCATE 9,5:PRINT "print time to drop and distance to drop." 

140 LOCATE 11,10;PRINT "MAIN MENU’^ 

150 LOCATE 13. 5: PRINT "1 - Enter nev/ data and calculate drops" 

155 LOCATE 14,5:PRiNT "2 • Retrieve previously stored solution from disk" 
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160 LOCATE 15,5;PRINT "3 - Print data from earlier calculated or retrieved line" 

1 65 LOCATE 16,5;PRINT '’4 - Save current mineline calculations to disk" 

1 70 LOCATE 17,5: PRINT "5 - EXIT SYSTEM" 

1 80 LOCATE 19,10; PRINT "Enter your choice” 

190 INPUT CH$ 

>00 IF CHS="1" THEN CHAIN "MINBCALC" ELSE IF CH$="2" THEN CHAIN 
MLRETREV" ELSE IF CH$="3" THEN CHAIN "MINEPRNT" ELSE IF CH$="4" THEN 
OHAIN "MINESAVE" ELSE IF CH$-"5" THEN GOTO 240 
>10CLS 

>20 LOCATE 10,10;PRINT "ERROR! choose 1, 2, 3, 4 OR 5" 

>30 goto 80 
>40CLS;END 



I 'MINECALC.BAS 
5 OPTION BASE 1 
1 DIM YTD(10),TTDn0) 

5 COMMON 

BATONS, NAS.U\H$.iPLAD,iPLA^M,IPLA.S,LOH$,IPLOD.IPLOM,iPLOS,SPD,TRK,N,YT 

OO.TTDO 

1 DIM HU\D(10).HLAM(10),HLAS(10), 

H LOD(1 0) , H LOM ^1 0) , H LOS(1 0) , H LAMX(1 0) , H LA>(1 0) 

} DIM 

1LOMX(10),HLO(10).NSDiFF(10),EWDiFF(10),NSYDS(10),EWYDS(10),TOTYDS(10) 

) DIM TOTYDSCHK(IO) 

OCLS 

!0 IF BATONS = "VALID" GOTO 30 ELSE GOTO 1065 

(0 cls:LOCATt 2,5:PRINT "Enter Data Below Prompts." 

iO LOCATE 4,5:PRiNT "Is l.P. Latitude N or S? (CAPiTALS)";lNPUT LAHS 

10 LOCATE 5,5: PRINT "Degrees": LOCATE 5,1 5: PRINT "Minutes" 
i2 LOCATE 5,25; PRINT "Sk'onds" 

LOCATE 6,5:INPUT IPLAD:LOCATE 6,15 

11 IPLADR-1PL>.D"3.141593/180 

12 INPUT iPLAM;LOCATE 6.25:INPUT IPLAS 

'0 LOCATE 8.5:PRINT "is I P. Longitude E or W? (CAPiTALS)":iNPUT LOHS 
!0 LOCATE 9,5;INPUT !PLOD;LOCATE 9,15:INPUT IPLOM;LOCATE S,25:iNPUT 
PLOS 

10 LOCATE 1 1 ,5 

i2 PRINT "Enter true track from l.P. to holes in 3 dig its (001 -360)." 

14 INPUT TRK 

15 TRKR-TRK*3.1 41 593/1 80 

00 LOC.ATE 13,5:PR!NT "Enter groundspeed in knots.";INPUT SPD 
10 LOCATE 14,5 

12 PRINT "Enter weapon trajectory in yards for your speed and altitude (from 
‘ACREFMAN)." 

14 INPUT TRAJ 

20 LOCATE 18,5:PRiNT "Enter number of mines in this line.";INPUT N 

21 CLS 

30 IPLAMX - 1PL4M + (lPLAS/60) 

31 IPLA - IPLAD + (IPLAMX/60) 

32 IPLOMX ■= IPLOM + (IPLOS/60) 

33 IPLO - IPLOD + (IPLOMX/60) 
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134 IF (LAH$="N") AND (LOH$="W") GOTO 140 ELSE GOTO 372 

140 FOR I «• 1 to N 

150 LOCATE 2,20: PRINT "Hole ";l 

160 LOCATE 3.5 

162 PRINT "Latitude; Deg Min Sec Longitude; Deg Min Sec" 

165 B-4+1 

170 LOCATE B, 15; INPUT HLAD(I) 

171 LOCATE B, 21 .INPUT HLAM(I) 

172 LOCATE B,27;INPUT HU\S(I) 

173 LOCATE B,44:INPUT HLOD(I) 

174 LOCATE B,50;INPUT HLOM(I) 

175 LOCATE B,56:INPUT HLOS(I) 

250 HLAMX(I) = HLAM(!) + (HLAS(i)/60) 

260 HU\(I) » HLAD(I) + (HLAMX(l)/60) 

270 HLOMX(I) - HLOM(I) + (HLOS(I)/60) 

280 HLO(l) » HLOD(I) + (HLOMX(!)/60) 

290 NSDIFF(I) -= HLA(I) - IPLA 
300 EWDIFF(I) = IPLO - HLO(i) 

310 NSYDS(I) = NSDIFF(!) * 2020 * 60 

320 EV^A'DS{1) » EWDIFF(i) * 2020 * 60 * COS(IPLADR) 

325 IF ((TRK>85)AND(TRK<95))OR({TRK>265)AND(TRK<275))THEN 340 
330 TOTYDS(I) « (NSYDS(l))/(COS(TRKR)) 

335 GOTO 350 

340 TOTYDS(I) « (EWYDS(I))/(SIN(TRKR)) 

350 YTD(i) « TOTYDS(i) - TRAJ 

360 TTD{I) - (((rYTD(I)/2020)/SPD)* 60)* 60) 

370 NEXT I 

371 GOTO 820 

372 PRINT "NE, SW AND SE HEMISPHERE PROBLEMS ARE NOT IMPLEMENTED 
AT THIS TIME." 

374 cls;GOTO 1070 
820 CLS 

830 LOCATE 2,2:PRINT "IP" 

831 LOCATE 2, 17; PRINT "Track" 

832 LOCATE 2,25: PRINT "Speed" 

833 LOC.ATE 2,33; PR! NT "Yards to drop" 

834 LOCATE 2,49; PRINT ”T\me to drop- 

840 LOCATE 4,2; PRINT LAH$ 

841 LOCATE 4,4:PR1NT IPLAD 

842 LOCATE 4,7;PRINT IPLAM 

843 LOCATE 4,10;PRiNT IPLAS 

844 LOCATE 4,1 7:PRINT TRK 

845 LOCATE 4,25: PRINT SPD 

846 locate 5,2: print LOH$ 

847 locate 5,4:print IPLOD 

848 locate 5,8: print IPLOM 

849 locate 5,11:print IPLOS 

850 FOR K = 1 to N 
860 L = 3 + K 

870 LOCATE L,33;PRINTYTD(K) 

872 LOCATE L,49:PRINTTTD(K) 

880 NEXTK 
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90 LOCATE 18,10:PRINT "Press any key to continue." 

OO B$- IN KEYS; IF B$="" THEN 900 
10 CHAIN "MFPLAN" 

365 cls:locate 10,10:print "Security Violation, Access Denied." 

366 locate 1 1 ,1 0:print "press any key to continue." 

067 z$=inkey$:i{ z$=”" then 1067 

370 cls;END 



'MINEPRNT.BAS - print module for minefield planning program. 

OPTION BASE 1 
DIM YTD(10),TTD(10) 

COMMON 

ATON$,NA$,LAHS,IPLA,D.IPlJ\M,IPLAS,LOH$,IPLOD,IPLOM,IPLOS,SPD,TRK,N,YT 

'O.ttdo 

OCLS 

0 IF BATON$="VALID" GOTO 40 ELSE GOTO 250 
0LPRINT’”’;LPRINT’”' 

5 LPRINT ,."UNCLjft.SS!FIED’':LPRINT " " 

0 LPRINT Minefield Planning Report" 

0 LPRINT „"for " NAS 
5 LPRINT " " 

0 LPRINT "initial Position;" 

0 LPRINT LfKH$ " " IPLAD IPLAM IPLAS " " LOH$ " " iPLOD IPLOM 
■LOS 

3 LPRINT " " 

30 LPRINT "True Track: " TRK " " "Aircraft Groundspeed: " SPD 
10 LPRINT " " 

15 LPRINT "Hole f5'",’Time to Drop;";'Distance to Drop;" 

17 LPRINT ."(seconds)", "(yards)' 

20 FOR K - 1 TO N 
30 LPRINT K,TTD(K),YTD/K) 

10 NEXT 
12 LPRINT " " 

15 LPRINT .."UNCLASSiriED' 

50 CHAIN "MFPLAN" 

50 CLS;LOCATE 10,10;PR!NT "Security Violation, Access Denied." 

>0 LOCATE 11 ,10:PRINT "press any key to continue" 
i'O q$*=inkey$;if q$-="" then 270 
30 cis.’end 



•MINESAVE.BAS 
OPTION BASE 1 
DiM YTD(10),TTD(10) 

COMMON 

ATON$,NA$,LAH$,IPLAD, IPLAM, IPLAS,LOH$,IPLOD,IPLOM,iPLOS,SPD.TRK,N,YT 
O.ttdo 

3 IF BATON$= "VALID" THEN GOTO 40 ELSE GOTO 140 

1 CLS 

2 LOCATE 2,2; PRINT "When this program stores a file it does not store the” 

3 locate 3,2;prinl "trajectory or the hole lat/long Therefore no classified' 
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24 locate 4,2; print "data is stored or can be derived Irom the file as long as" 

25 locate 5, 2: print "the minefield is an exercise field and not a real operational one." 

26 LOCATE 7,5;PRINT "Do you wish to store this data in the file? (y or n) " 

27 INPUT AN$ 

28 IF AN$="Y" OR AN$»"y" GOTO 40 ELSE IF AN$="N" OR AN$-"n" GOTO 130 ELSE 
GOTO 31 

31 LOCATE 10,5;PRINT "Error choose y or n." 

32 LOCATE 12,5:PRINT "Press any key to continue." 

33 B$»INKEY$:IF B$="" THEN 33 

34 GOTO 21 

40 LOCATE 5,5; PR I NT "What name would you like to store the data under?" 

45 locate 6,8;print "(all lower case and remember it please)” 

50 INPUT NA$ 

60 SHELL "RCRYPT $ED.MNQ MINE.DAT" 

70 OPEN "MINE.DAT' FOR APPEND AS #2 

80 WRITE#2,NA$,LAH$,IPU\D,IPLAM,IPL^S,LOH$,IPLOD,IPLOM,IPLOS,SPD,TRK,N 

81 FOR B=1 TO N 

82 WRITE #2,YTD(B),TTD(B) 

83 NEXTB 
90 CLOSE #2 

100 SHELL "RCRYPT MINE.DAT SED.MNQ" 

110 KILL "MINE.DAT" 

130 CHAIN "MFPLAN" 

140 CLS; LOCATE 10,10; PRINT "Security Violation, access denied." 

150 LOCATE 11,10;PRINT "Press any key to continue." 

160 p$-inkey$;if p$-"" then 160 
170CLS;END 



1 'MLRETREV.BAS 

3 OPTION BASE 1 

4 DIM YTD(10),TTD(10) 

5 COMMON 

BATON$,NA$,L^H$.!PLAD,IPLA^M,IPU\S,LOH$,iPLOD,IPLOM,IPLOS,SPD,TRK,N,YT 

do.ttdo 

20 CLS 

30 IF BATON$="VALiD" THEN GOTO 40 ELSE GOTO 160 

40 LOCATE 5,5;PRINT "Enter the name you stored desired data under, (lower case 
please)" 

50 INPUT NM$ 

60 SHELL "RCRYPT SED.MNQ MINE.DAT" 

70 OPEN "MINE.DAT" FOR INPUT AS #3 

80 IF EOF(3) THEN CLOSE #3;PR1NT " NOT FOUND";KILL "MINE.DAT";GOTO 150 
90 INPUT ^f3,NA$ 

110 IF NA$=NM$THEN GOTO 120 ELSE GOTO 80 

120 INPUT #3,LAH$,IPLAD,IPU\M,IPLj^S,LOH$,IPLOD,IPLOM,IPLOS,SPD,TRK,N 

121 FOR CHITON 

122 INPUT W3,YTD(C),TTD(C) 

123 NEXTC 

130 CLOSE #3;KILL "MINE.DAT" 

150 CHAIN "MFPU\N" 

160 CLS;LOCATE 10,10;PRINT "Security Violation, access denied." 
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70 LOCATE 11,10:PRINT "Press any key to continue." 
80 s$=inkey$;if s$=^’” then 180 
90 cls:end 
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Appendix B: 

Source code for Dive L09 Application in Dbase IV 



****************************'*^.-***^.*************;>;***y-****************** 

* Program : DLUSER.PRG 

* Author : This is an APPLICATION OBJECT. 

*Datc : 8-04-91 

* Notice : Type information here or greetings to your users. 

* dBASE Ver....; See Application menu to use assign-on banner. 

* Generated by.: APGEN version 1.3 

* Description..: user application of dive log database. 

* Description..: Main routine for menu system 

•fc *A* -k k k k kkkk k k k k k k kkkkk k k k k k k k k k k kkkkkkkkk k k kkkk k k kkkkkkkkkkk k k kkkkkk k k 



* ADDED CODE FOR SECURITY MODULE 
S 3,3 SAY "Enter Password: " 

SET COLOR OF NORMAL TO B/B 

ACCEPT " " TO PWORD 

SET COLOR OF NORMAL TO W+/B 

IF (.NOT. PWORD-"TIGRIS'').AND.(.NOT. PWORD="SCUD ).AND.(.NOT. 
PWORD="BAGDAD") 

DO VTOLATIO 
ELSE 

RU.N pkun/.ip adidata -sIRAQ 

k k >V k k k k k k kkkkkk k k k k 

*— Setup environment 
SET CONSOLE OFF 
IF TYPE("gn_ApGcn"')- U ' 

CLEAR WINDOWS 
CLEAR ALL 
CLOSE ALL 
CLOSE PROCEDURE 
gii_Aj>Oen— I 

ELSE 

gn_ApQcn-gn_ApGen+ 1 
IF gn_ApGcn > 4 

Du Pause WITH "Maximum level of Application nesting exceeded." 
RETURN 
ENDIF 

PRIVATE gn_old.siz.e 
gn_t>ldsi/e=gn_scrsi/e 

PRIVATE gc_bell, ge_cany, gc_clock, gc_c'enluiy, gc_confjrm, gc_deli,; 
gc_safety’, gc_status, gc_score, gc_talk, gc_kcy, gc_prognum,; 
ge_quil, gc eolor. ge_display, gl_color, gl bateh, gn stTsize 
ENDIF 

Store some sets to variables 
gc.lK-lI -SET("BELL") 
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_clo:i =EE'(“C.nr.- 
^nclo- =£E'i'■ATTR]EJ■E^ 
j9r.ti!'^/=9ET!"CES‘^L'^r'‘^) 
jonn-e=£EM“CGNF:R-^: 
}ursc- =5ET(“CURE3E“) 
"deli =£ET(^rEL]«rEFE“! 
ji£plsY=£E^:"DI5^LAy^) 
jafetY =SET(’ SAFETY) 
’status =£ET("£TA;'JS%' 
_scDre =SET(“£CDREFGAEE ) 
talk =£ET!“"AJ\' 

f conedlE on 
gc_dis?lav <> ®E6A2^“ 
gn_0r'or=O 
Os’eRROR 7'; 

£ET riE'^LAv TO ESA25 
ON ERROR 



^ BELL ON 
[ CARRV [-rp 
[ CENTO^'' O^F 
! CLOCK CF^^ 

[ CCN«^IR!^ OFF 
[ DELI“^rER£ TO ■=“ 

[ DELIHITERS OFF 
^ DEVICE TO EC^EEN 
F ESCAPE ON 
[ EVCLUEIVE OFF 
[ ICC* ON 
! MESSAGE T: 

I PRINT OFF 
^ REPROCESS ^0 A 
" SA'^ETV 0^. 

T TALK CFF 

- Initialize qhta: va'-iatlea 

_bateh=.F. is a satcF cieratiDn ir. ^rcq’^ess 

_colcr= !SCO.OR(! .AND. SET( ^OISF.A^M L; ^CE=^^uN2‘^ 
jrror=0 
^ikey=0 
j:rsi:==21 
_S9nd=C 
^trace=l 
Jrdr='r 
_dev='CON‘ 

Jey=’N' 

_prcgnu3=' 

_quit=' 

stval^'NO FIELD’ 



H 0 if ru c^rc", jtheri^isE an e^ror c::urred 

U keypress ’^eturnEd irzi tts IN'E'’^() fun:t:?n 

1-^ rubber of lines on screer. 

i5i returr value fro^ti popup of position genus 

B sets t"a:e level, Rowever ycu need to change terplate 

i!f borde*' to use «hen drawing bones 

H Device to use fc' printing - See Pro:, PrintEet 

if leave the application 

fi internal program counter to handle nested f.enus 
U itesvar for retu’^n tc caller 
if Pick List value 
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I-- refjcve tc cl::^ c': 

I SE^ CLGl* to 



I— Blan!^. sci^ee:, 

SE' COLOR TO 
CLEAR 

SET SCOFErOARL OFF 
SET STATliS OFF 

I- Define senuE 

miuuituuuu$n 

DO MPDEF «ITH "SOOr hi exECLte Menu P-d: 6:5 DE- 

uimmttuniiu 

X-- Execute rair se-u 
DO WHILE gcjev = 'K' 
uuutuumutm 
DO U 5 ERSAR WITH ^?CO^ 

uiuuuuninuin 

F 5:_qLiit = ’G' 

EXIT 

ENDIF 

ACTIVATE WINDOW Exitjp; 
ic^ccr"^=SE^;'CONF:RH ) 

Ic 

SET CONi'IFH OFF 
5 £^ CELiMITEF OFF 

§ 1,2 SAv "D: vDu want tc leave tnis enrlicati:"'^' 
SET gcjey FIC’ V^JD ::J, = * $ 

READ 

SET CONFIRi^ ^lc_cc-f. 

SET DELIHITEF Xlcjel:. 

RELEASE kJ:■n^ k_c?l: 

DEAO^IVATe’\:NDCw E;:it_Arn 
ENDDO 

I-- Feeet envi^c^Eent 
DEMOTIVATE WINDOW FuilS:- 
?? CclDr(gc_cclD'! 
gn_ApSen=gn_AnS£r-l 
SET BELL igcjEll. 

SET CARRY ig:_carrY. 

SET CLOOF ^QC^clDck. 

SET CENTURY t-:_cer.tu-y. 

SET CONFIRM iq:_ccnf:rs. 

SET CURSOR igcjurscr. 

SET DELIMITERS Aqcjeli. 

SET DISPLAv TO fegcjisclay. 

SET STATUS Igcjtatus. 

SET SA*^ETY igcjakty. 

SET SCORE fcg:_ 5 Core. 

SET TALF fcgcjalk. 



i 

ON k'EY LABEL FI 
CLEAR WINDC-ft'5 
CLEAR ALL 
CLOSE A.L 
CLOSE -RCCEDL'RE 
SET ESCAPE 0^ 

SET HES5A3E TO 

CLEAR 

;E 

DEFINE WINDCti FullSc- FRO^ 0,0 "j KILE 

DEFINE KINDGS^ Savss:- ''PO^ 0,'? TO q-_cic£::e NONE 

DEFINE wINDOi^ Helpszr 1,0 ‘^0 ;r_cl jrizcjc NONE 
AC^IVA^E i^INDOs FlIIEi- 
-IF 

nnmiuuiii 

IT r 

uuuimum 

CRN 

uuiiuunnimnHmunmniiuiuunuuiuiiiiiuitummmii 

)esc^:Uic" . . : Frc:=dL"E files ^cr qere^ete:! z°v: evstes, 
he prcqri?E tret fcilow =*^5 cc**:" to 'sai" rc-t:nes 
’he last pr::ec.re :s the heru "r::es= DEFintic- 

tMuuuuutmnuimmmmuuunuumuMMmmuuiniiiiti 

‘CEDOFE Lo:Ut 
iAIETER Itype 
NETl^CRn: 

5n_eTG'^=0 
ON ERROR DD 
I?^ ItvDE = 
n Jc:^=F.O[r() 

END IF 

IF Itype = '^2“ 
il_lDck=RLOC*:{) 

ENDIF 
ON ERROR 
)IF 
ILRN 

3CED0RE IMoJox 
iANE^ERS k_say 
k jay 

^EPLI[ATE("-\LEN!lcjav)) 

rURN 

:CP: Infc Box 
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PROCEDURE get_ 55 le 

I— Get the user selectic" i stD^e 

qn^send = BAR{) U- Varuble for print 

DEACTIVATE PO'^l-P 

RETURN 



PROCEDURE ShowPick 
hstval=PRO«P^() 

IF LEFT(entrYfl5,l!=’E“ 
kJile=PC^U-'{; 

Dc’&kjile. fclTH 
RETURN 
ENCIF 

IF TYrE(“i:_window') = k’‘- 
ACTIVATE WINDOW Sho^kck 
ELSE 

ACTIVATE felINDCti' ilc_K:nd:^.. 

ENDk 

STORE 0 TO InJrey.xl,j:2 
ln_key=LA5T<Ey! ! 
k ln_iky=13 

xl=AT!TFk(h5tva];-',McJ]dl5t! 

IF xl = 0 

IcJkistM: Jldlst-TRi^diatvai; 
E.SE 

x2=AT(\',5LBS-R(]:_f:dl3t,xlj) 

lc_fl:Ist=S^UFF;i:Jld:5t,xi,x2,’ 

CLEAR 



Icjldkt 

ENDIF 

ACTIVATE SCREEN 
RETURN 



I 



ShC'WpicV 



PROCEDURE Cleanup 

t-- test whether repeat :pti:^ .^es sele 
DO CASE 

CASE gc_riev='CGN' 

? Press any key to ccntirue../ 
xx=INYEY(C) 

CASE gc_riev=''^RN‘ 

SET PRINT OFF 
SET PRINTER TO 
CASE g:_dev='TXT' 

CLOSE ALTERNATE 
ENDCASE 
gc _dev='C 0 N' 

RETURN 



I EOP: Cleanup 



(CCED'JRE Pa'jse 
^RAKETER lc_ffi£Q 

•“ Parasetsrs ; Izj^sz ~ E9£=acs 
• TYPE(Mc,rc55aqe^)= 
gr_error=ERRDR( ) 

(DIP 

_E5g = Ic^isc 
_^optiDr=’0' 
fiVATE mm Pa'jse 
gn_er'D" > 0 

IF TyPE;Mc_£E55a;e")=^L" 

^ C\1 5AV [An errcr has ' - E'^o^ R°££ige 

ELSE 

§ 0,1 SAY [E^ror I ]'^1 c_?9ee3C' 

ENDIF 

DIF 

1,1 SAY lc_^if5q 

r " Press any tc cDnt:n::e. . . ‘• 

ACIIVA-E kINDD^' Pa.usE 
^URN 

EDFi Pause 
DCEDl’RE 

- set the gicbal variable 
_errDr=ERRC-R() 

- contains error ru?b?" to test 
_^crnc=5TR(ERRCFi ) , 3 )*' , ' 

- coticn var. 

^cpt='T' 

- Dialog box ^or cptio's Try again a^.c Fetw"'*' :o ^eno. 
lexeme i ”ivS,iOF,l2r,12^', ' 

ACTIVATE ^aose 

^ C 2 S“''^ Ic e^no'*'** 

^ 2,22 SAY •’’ - Try ecain, F = ^etu^n to oen..' EE’^ Is 
CURE VALID lc_o;t $ 

READ 

DEACTIVA'^E islINDEw ‘^ause 
IF lc_Gtt = “R^‘ 

RETURN 

ENDIF 

IDIF 

■“ Display message anb return tc seno. 

■ .NOT. lexeme $ U0S,10?,12e,i29, “ 

DO PAUSE^^IIH ERRDRO 
RETURN 
IDIF 

•" reset global variable 
i__errcr=0 

Try the ccffirand again 
:iRY 
[TURN 
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t E QP i 



PROCEDURE I-a:? 

t Desc: Trace procec-'’? ~ tc 1st r-rcc’^arti^E' krcw i^^a: ?:cu!r 
t 15 aDuUt to execute aru^ ^nat itocule has execute:, 

PARAf'ETERS rj-sg, p_iv] 

I-- ^ara.'Beters : p_?eg = sessaqe line, pjv: = t'^ace levs: 

k_ffi 5 G = p_ 25 g 
Injv: = p_lvl 
l:_trp ~ 

IF gn_trace •• ln_lvl 
RETURN 
ENDIF 



TE-INE WINDOW trace FRD*^ 5,0 ID It, 'F DDiE.E 
ACTIVATE WINDOW t-ace 
DD WHILE lc_trp < • ’Q' 

ELEAF 

L E N ' 1 c 1 = - 0 J / 2 ^ A V * c » E 0 
SAY 'E - Set trace level, D - Diepla'j etatus, 
SAY 'P “• Tur^ o'lntE" c", 2 - to Quit' 

- ‘ r ‘ 
u 

BET 1: t"p PICTURE ' “ 

READ 
DD CASE 

BASE Icj-? = 'S’ 



$ 


'■' rii 


Clear 




§ 




EA^' *5et trace le^ 


> w • 


§ 


A 

*T , V c 


Eh*'^ 'Enie- I'ace 


level t: :^a''ge :c; ' 5E" :^ ji 


§ 


c; 

v/ , V w 


SAY ' 




READ 






IF 


5 : Jra:e =2 






§ 2 


, 0 : CLE^R 






ft 3, 


,05 Sa^' '"^ra^e 15 nov-,' ■*■■’^’'9'' r. *■^,,'^9 '’ear^ivxte 






,05 eay ’P^ess any 


key tu ccnti-ue. . . ' 



WAH " 

ON ^EY L^^rEL F3 g- f^ace = I 
ENDF 



§ 2 ,A(- 
§ 4,05 
§ 5,05 

I r r r 

iw_W, ^ 

§ 5,3S 



:spi3Y 



e PICTURE 'r 



ace ~ ^r93c f”' 



CASE lc_trp = '['• 

display status 

WAIT 

CASE Icjrp = >• 
DIS^LAv r-E^ORY 
WAIT 

CAEE IcJ-? = 'P' 
SET J'RINT ON 
ENDCA5E 
ENDDO 

SE^ PRINT OFF 
RELEASE WINDOW trace 
0 24,79 SAY “ ' 
RETURN 



to 



ECP: Trace 



OCEDURE F-ir,t:et 
- Initialize variatlee 
_dev='CCN' 
chcice=‘ ' 



_pi? 


y=0 










_senc}=3 










FINE 


N!N; 


D0i 


^ p: 


rnte?: 


PpQ- 


^INE 


POPUP 


Save^rin 


FRCf^ 1C. AO 


HNE 


BA.^ 


1 


OF 


Save^r 


:r FF0“- 


-INE 


BAR 


n 


OF 


SavpP'^ 


in PP0“- i 


"INE 


BAR 


7 


OF 


SaveFr 


IP FRC^'^'I ' 


•ISE 


BAR 


4 


OF 


E a V 9 P r 


ir PP0!*=T ' 



'INE EAE t D- SaveFr- PEC^F: 



^a^olls! pcri Z' ^EEEPEE i 



'INE : E- Save^-r ^ :c^; Se-al rcr: i” rEEEAEE "Eenj CLtrLt t: 

f t • ^ 

'INE PAP 7 Savr^^ir ^ mlE PEFCPT.in^ flEEEAEE tc 

[b Pepcrt. tx:"' 

EELECTIjN ^OFiJP EaveFrr IC cst eele 



iIvAIE F0"JP EaveFri'' 
.EASE PD'^J- Save^^ir 



_plt 6 y=LA 5 TtE^, ! 
qr_5e''.j - 7 
ccjev = '-A"‘ 

SE"^ A.TEnNATE “^0 ^E^E"' 

SET A.TEFNA^E ON 

II 

IF .NO", (qr - 3 .CP, - C ' 

nr ^ o ~ — P p N ' 

tzB.i = SCFETFC IlFTCCC^I 
ON ERROR DC qrntrtry 
SET PRINTER ID 
IF 5n_p^ey <> 27 
SET ^RINT DS 
ENDIF 
ON ERROR 
ENDIF 
DIF 

wEASE WINDOK p^inte.ip 
lURN 

GCEDCRE prntrtry 
IVATE lc_escape 
_e5cape = SET( "ESCAPE' 1 
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IF .NG^ pFIN'SThTJE: 

IP Ic js:ap= ^ 'GN’ 

SET ESSAPE GrP 
END IF 

gn^pkev = C 

ACTIVATE mm pr:ntEfsp 
§ 1,0 SAY ‘‘Please ready yci-^ prrter c^’ 
§ 2,0 SAY * press ESC to carcel'- 
DO «HILE ( .NET. PRIN^ETATGE( ) ) .AND. 

gn_p^ey = INf.EVn 
ENDDG 

DEACTIVA'^E ^IHm prirtee? 

SET ESCAPE no_esca:=. 

Jp gr_pkey C C7 
P.ETPY 
END IP 
ENCIF 
FETLIPN 

t f'ri-tSet 



PFjCEDUPE Position 
IP LEN!DrF()l = 0 

DC Pause ivlTH “Dataoese rot :n use. ' 

RETURN 

ENDIP 

SET SPACE ON 
EE^ DEtl-ITERP DPP 

inJyD8=0 suoles^ei selsitic" 

In jkey=READNPY( ) M- test ESC or Retu^r. 
lr_rec=F.ECNC( 1 L'rP reccrc r„,?te' 

In_riU-=C I*- "O' :r:_t o" a •'jrter 

ic_dcte=DATE( ■ ":r np.t z* a date 

k_o?tic‘ = '0' y .:a:' cptio' is. Eeek 9c:o and Lcoate 
J" Scope :e. ALu, REST, HiV -r) 

S'CPE SPACECO) Tj kj-cp 

I— 1 - Cha^aote’' SEEP, 2 = For clause, 3 = k’":le cla'.se 

STORE SPACE(40; TC Icjrl, k_Ir2, k_k3 

!c_tesp='‘’ 

§ 0,00 SAY ‘^kdex order: ‘‘+1 :F( *^=CRDER! ; /Database is in natural orderkDRLEP! ) ) 
§ i,00 SAY “Listed bek^ a^e the first it fields." 
kJesp=P.PpLICATP(C-!R!19il,19) 

t 2,0 SAY CHR(2ie)4kJesp+CHR(194)M:Jei^p^CHR(194)Mc_te:p^CHR(lPA)tlc_teEp 
ln_nus=240 

DO WHILE ln_,nu5 < 5£0 

kJe£p=FIELD( ( k_nu£-24C;/20 +1) 

§ (ln^niJp/eC),?1CD{ln_nu£,£0! SAY CHR;i79) + ; 
lcJe£p+5FACE{li-LEN(kJe?.o))k 

SL'PSTR('= Char = Date = Logic = Nue - Float - lieso *,; 

AT(TY?E{k_teap)/CDLNF«U"lt8-7,8) 
ln_nue=lnj?u£*^20 
ENDDO 
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r,uff=l 



;nNE POPliP Pcsitl FRCr E,50 

FINE BAP i OF Pcsitl Posit. by ^ 

TINE BAP 2 DF Fositl PRD^FT PE'^llCATE'CPPilPiiab) 

FINE BAR 3 0- Pcsiti PRGf^P^ ^ SEEK Record" hESSASE ”555rcn oc incei- SkT- 

!R '^^ORDERH 

FINE BAR A OF Pcsitl ^'RO^,- 60"C Re:c-d" «E5SA5E Position :d spec;-':: ^ecc^b*^ 

FINE BAR 5 OF Pcsitl PR2-FT ' LOCATE Recc-d '• MESSAGE '’Locate recD-d fcr 

'nd:tior.“ 

FINE BAR 6 OF Posit! PROMPT RetL-^" MEEEABE “Return Kithout pcsitic'^inq^ 
SELECTION POPUP Pcsitl DO qet.sele 

T CON.^IRH ON 
WHILE lc_option=‘0‘ 

ACTIVATE PCPUF resit! 

Ic^cpticr - !t^i?!st''(5n_5snd) ) y fc^ Dcpup 
IF lASTKEYO = 27 .OP. k_optio-=''S^ 

EOTD kje: 

ur. 

ENDIF 
DO CASE 

CASE ic_cpticn='3‘ 

I— 5e=K 

IF LEN(NDa!1))=0 .cnD. LEN MIMkkO 

DO Pause WT- ‘Can't use tbis ccticn - N: rcs- k.es a^e open," 

ICC-' 

ENDI'^ 

ln_typ?=! 

lcJni=EPACE!40) 

DEFINE UKDOiy PositC '"RCfl S,!^ k IktC DCkl.E 
ACTIVATE WINDOW PcsitC 

§ i,l 5A] -Ertc" t^e type c^ erprcssion; " BE'' Ir__tvt= '^ICT RANSE 1,3 
^ 2,1 SA'i ' {i=k•a^a:t9^ C=.n-cer.c 3=dat£.;' 

SET CUi'SCR CN 
READ 

SET CURSOR C^^F 

IP .NOT. (REAkEu) = i: .OR. READKEVi; = 26B) 

SET CONFIRM ON 

§ 3,1 SAY “Enter the tey expression to search for:’' 

IF lnjype=3 

fc M BET Idjate FICt ”§D" 

ELSE 

IF ln_type=2 

g 4,1 5£^ ln_nuE PICT 
ELSE 

§ 4,1 BET Icjnl 
ENDIF 
ENDIF 

SET CURSOR CN 
READ 

SET CURSOR OFF 
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SET CCNFIR- QF^ 

IF .NET. (EEf^DFE'^O = II ,CR. FEsDfE’^:; = 2tB) 

lcJei:;=IIFn-jYPe=l/TFI1U:Jrl)MIF;i-_tyQ5=:,“hjio/:%Mdj5:s'’)l 
SEEK Mcjesp. 

ENDIF 

ENDIF 

RELEASE KINDDK5 Fositl 
CASE !c_cction= ^ 

1-- Bcto 
In_typs=i 

DEFINE PCPU^ PDSit: FFC^' E,3C 
DEFINE m 1 C^ Pcsit: ' BCTO;* 

DEFINE BAR 2 DF Fosit? PROf^FT REPLICATE(CHP(i9£) ,1C) EFF 

DE'^INE BAP 3 Po5it2 pRC^^pJ ’ TC^^ MESSAGE ‘'BG^O Top of File" 

DEHNE BAP A Po5it2 PRDMFT ^ BDTTQ«= MESSAGE “BDTC Bottom cf 

DEFINE PAP 5 OF Pcsit2 PPCMPT “ Reco-C t “ MESSAGE 'B2TQ A SoeciUc Reoo'd" 

ON SELECTION PCPUF Posit2 DC ?etjele 
ACTIVATE PCPL^'’ posit: 

InJwYpe = qo_5end 
IF LASTKEV() 27 
IF ln_tvre=t 

DEFINE nilNEC^ '^'csitZ FROM S,2E TC 13, !0 DGUELE 
ACTIVATE UNCjI^ Positl 

I''JU!?i=v 

f 3,1 BA- "Max. Rroo-o I = ‘ tLTRI^^'STFi^CCCLN^; ) ) ) 

^ 1,! SAY ”P=:crc to BOTO'^ BET PIC' RANGE 1 ,RECCClINT: J 

5E" CURSOR CN 

READ 

SET CUPSCR O^^F 

IF IREADYE'Ml = 12 .CP. REAL^:EV{) = 26S) 

GO'^O Ir:_nu 2 
ENIIF 

RELEASE ^^INDOWS FreitO 
ELSE 

lcJefO=IF:h_tvP9=3,"TCi^-/?DTTO*^"} 

BCTC Ilc_t82:. 

ENIl'^ 

ENDIF 

CASE lc_option='5‘ 
t— Locate 

DEFINE KINDDi^’ Posit: FROM 8,16 TO 14,66 DOUBLE 
ACTIVATE WINDOW Pcsit2 
§ 1,19 SAY 'ie. ALL, NEKT <n>, and REST* 

§ 1,01 SAY 'Scope:^ BET Ic_ 5 cp 
§ 2,01 SAY 'For: ^ BET Icjn2 
e 3,01 SAY "While:" GET lcjn3 
SET CURSOR ON 
READ 

SET CURSOR OFF 

IF .NOT. (READFEYO = 12 .OR. READkEYO = 26B) 

Ic_teffip=TRIM(lc_scpl 

Ic_teap=IcJeip + IIF(LEN(TRIM( lc_ln2) ) > 0,” FOR "+TRII1( Ic Jn2) , ) 
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IFlE\;i:_tep; ■ ' v 
LOCATE dcje::. 

ELSE 

D: Fa.ss l^ITH 'Pd fielcs we^e blank/ 

ENriF 

ENDIF 

RElEASE kINLOk Pde/E 
EKDEASE 
IF EG-l) 

DD '^'aiSE kITH "FecctcI n:t ^Own:/ 

03TG !n_rs: 

END/ 

IF READ?:EY!)=1: .or. ^E^lkEVi):: 16E .2F. .^ET?.Ed/2^ “ Esc was ^ 
lc_o;;ticri=' 0' 

ENDF~ 

DDL 

T CURSOR ^c_CL"5D". 

T DELI^/ERE k:/eli. 

T CON-IF/ Cr 
TURK 

ECF: Fositic’' 

CCEDliRE Ec^A:t 

VE SCREEN TC E-owsc^d: Jpen. 

ACTIVATE kINCCk ^uilscr 
T SCC^EPCFFC ON 
TURN 

EOF: BsfAct 

DCECIIFE AUAct 
EAR 

T SCQF.EPQARD OF^ 

TIVATE kIND[?{ -ulh:- 

STORE SCREEN ErCi^s:^d:_A:EEr . 

LEASE SCREEN J:;C?n. 

^URN 

EOF: Aft Act 

OCEDURE Pcstnhli: 
jetkey=INKEV;) 

-INE WINDOW Te::hel? FRC^ 3,12 TO 19,67 
:T:VATE kINDOk lEsC'help 
I CASE 

tSE “SEEr $ PROMPT 0 
- HELP SEEK 
“ SEEK <exp>" 

" Evaluates a specified expression and attempts to“ 

' find its value in the easte^ index of the database" 

' file. Returns a logical true (.1.) if the index" 
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“ key :s fsunc, 3 n: 2 Icqical faiee (.F.) :t 
" net fcjnd.® 

9 

’’ Ex: SEEk CTDDi* 11/03/57*) - converts tne“ 

“ excressicn cha'^acte" to Gate an:"' 

" “ then searenes fc*^ tre valoe in the index" 

9 

CASE LEPT(LTRl‘'(FRDf1PT()),4) $ "BC^D TCF 50^*^ Fe::" 

HELP SOTO 

" EO/GOTO BOTTOtt/TCF [IH <a]ias']“ 

" or" 

? " 5C/B0TD [RECORL] <-ecord nuaber) [IN <alias^]“ 

“ or" 

? " (record noaber)" 

" Positions tne '"eccrd nc-inte^ to a snecified ’^ecor:“ 
* or Iccaticn n the active database file." 

? 

" TO^’ gloves the pointer to ths first ’^ecc^d" 

? " /toves the pointe’’ to the last record" 

9 

" Ex: 4 " 2 Dve" t^'e rec''’’d poi'^ter to recorc 

9 

CASE “LOCATE" t ^RD^PT() 

I- HE.P LOCATE 

7 " LOCATE FOR (condition) [<5Cope>]" 

" [k‘KILE (condit 1 0 n ) ] ** 

9 

" Searches the active database file, seqoe-tially, " 

“ for the first record that seats the specifieG'’’ 

" criteria. The ^onction FCuMO rsto^ns t^ue (.T.)" 
" If LOCATE 15 soccessfu:." 

? " Ex: LOCATE f^QF Aqe = ’ 2 j NEH 5" 

7 '■ searches for the nex* ^ive records 
“ containinq 2b in the Aqe field" 

CASE “Return" $ PRDHFTO 

9 

? " Retu’-n to action in progress, with or without" 

? “ positioning the r^zort pointer. “ 

ENDCASE 

In jgetkey = INKEYIO) 

DEACTIVATE ^INDDis Teephelp 
RELEASE WINDOW/ Tesphelp 
RETURN 

t EOP: Postnhip 



FUNCTION Color 
- — 

I Forsat: 
t C0L0R( <expC> ) 
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HI5H.ISHT, r;EEEAEEE, TITLES, BQ’ 



< 5 J:pC> = 

ELDS 

c'' a Yar:=M9 xit"; al: col:^5 stDrs ir 
Ver: dB^SE 1.1 



•‘itrnPK;' 



jN, 



T^e CDLQRO fur^cticr eitner raturrs o: sets colors returned xiir: the 
SET(“attrib'jte*) settinc 

IS returned otherxiss the color 
ccicr Dptior.s 

See Mso: SET(‘att''ibi::e”; 



n <9xpC^ 15 a ccicr st'in^ the'' 
settr.c :s recurred ^cr ore of dSi^SE's 



RA^ETERS sstjcl:^ 

IVATE color^nu?., colcr_str, :rt 

t_c:lcr = UFPERIsst^colo’'; 
sst color - **CDLDR” 

I- Retu’'n stardarc, erna^cec, Doles'' celeb's 
RETURN 5LESTR(SET!“att-%,l, SE ' ; ‘ott-^ ! ) ) 

:iF 



Declare ar»'ay to carae color c;t:o"s ^■'or; EETi^attr"*; 
IVATE colcr__ 

:LARE colcrJE] 

Deterg;:oe if use*' is "estonr.; colors vs. sav.ro colons 
" I" i set_coicr 

coIo'” str~ ^ **^5et colc’’'*’'^ ^ Re-cc’'e 

:E 

iclor str - ~,*'*5ET(**HT'^RIBi.'^E'^;'*'",'^ {:1- Save oo 

MF 



Ic" attr: 



t = c 



acorio.ies 



- Stuf* array wito lodivicja: co:o" settiro 

Icr str = STL'FF(ocicr st'', ^ , co*cr st*'., 4, ",*) 

t 

WHILE c't '■= B 

:olo"_str - SlSETR,:clor_st", AT/'/, oolo’^^st’' j +1 ) 
:olor_[:nt] - EJ&S'^Rloclc" jtr, 1, A"'/,\ ccicr_st’' j - 1) 
ent = cr.t ^ i 
[•DC 

■ i 5et_coIor 
t— Set color baox 

BET COLCR TD , ,lcolo^ __[3] . Bo’^ds'' color 

SET COLOR OF NOR-AL TO kclo-j!]. 

SE' COLOR HI6H/5HT TD kolo^j:]. 

BET COLOR OF flESSABES TO kclorJ4]. 

SET COLOR OF TITLES TO kclorjF]. 

SET COLOR OF BCX TO kolo-'JsL 

SET COLOR OF INFQRhATICN TO kolorj?]. 

SET COLOR OF FIELDS TO kolor [B]." 

SE 
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1-- Retuf'r colc’" string = 

DD ChSE 

ChSE set_:clor i ■'NGRnAL'' 
cDk!^__r)U(; = - 

CASE set^cckr $ 
cclcr_nus = 2 
CASE setjolcr $ ‘^BORI'EE^ 
cDlcrjiuj = 3 

CASE S9t_i:Dlc:r $ ‘^f'ESSASEE" 
colcr_nus - 4 
CASE set^cok:' $ “IkLES-' 
colcr_nuf = 5 
CASE 5Bt__CDkr $ "EOr- 
coIcr_nu;: = t 

CASE SBtjiclD- i MNFDR^ATkN^' 
c3lor_nuf = 7 
CASE SBtjcIo- i ^^'lE.DS' 
cclor_rui - S 
ENDCA5E 
ENDir 

RETURN $ s=t_C3!3r, cck^^ccl 



) 



mntmmuuiimmmuiiiMiiiUjnummiiiitiMnnunini 



t J^rograis......: KFDEF 

t AiiUor : This is an AfPLICATlCN OBJECT. 

• t Date : 3-04-91 

t Nctice, ; Tyte i-fcrsatic^ here cr greetings te ycur users, 
t dEASE Ver....; See Atvlicat.on deru tc use as sign-on barter, 
t Generated by.: A'^SEN ve^sicr 1.3 
t Desc^ipticn. user agplisaticn cf dive log database. 



I Cesc ^ 1 pt i or . i * Define^ a]] seru^ in the “Vsteo 

itnuumumuumnmmuuinuuumimnuMmuumui 

FRGCEDURE HFLEF 



uumiumit 

PARAMETER BATON 
IF .NOT. BATCN="SDOD*-^ 
DO VIOLATIO 
ELSE 

mimumul 



IF gl^cclc^ 

SET COLOR OF NORMA^ TO N+/B 
SET COLOR OF MESSAGES TO W*/N 
SET COLOR OF TITLES TO H/B 
SET COLOR OF HIGHLIGHT TO R6+/eB 
SET COLOR OF BOX TO R6-/5B 
SET COLOR OF INFORMATION TO B/W 
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SET COLOR OF FiELES TO N/GE 
DIF 

:rr 

- Sign-on banne" 
r BORDER TO 

TO U,69 double CCLO^ RB+'GB 

MO SAY “ III i^ELCO^E TO AJTO-R/ED DIvE lGG VERSION l.I t t r 

MO SAY " This user ap?licatiD" allaws fc" s-r^ts'in^ dives, f:rp-' 
[0,10 SAY “ irg dive lc:s print:':'; c" hrowzir,;, ard find:'-; and*' 
[1,10 SAY • prirtin; ct pualif icat::''- lists. Securitv z* infcr-a-*' 
[2,10 SAY ® tiC'' is ersursd :* user's i^ssp thei^ diver niriber secure. ^ 

13.10 SAY " You ELst Knch vojr dive" rusher tc 3::csplis> a^v c- the'’ 

4.10 SA'^ ‘ systess ■^unsticrs. Tha'-'r yen f:- usinq ADL 1.1;" 

,10 FILL TO lt,E8 COLCR K^/N 

4,30 SAV “ Press ^*CHRil7)-:hF119i)^CRR;21?;^" to conti'^ue. ^ 
:key=IN[EY'‘50C) 



AR 



Preverts clearin: d* iser.us iDsr.a'ds; 

SET STATUS and SET SCEREB2AF: 

INE l^INDDl^ -LllScr 0,0 TC 24,79 NCnE 
Pcsiticn at runtiTLe arc bate'' P"::ess 
INE WINDCk Savescr FRCh 0,. TO :i,7R NjNE 
FI Help 

INE WINDCii; f-elbs- FFC*' 0,0 TD 21, 7^ NONE 
;n_AcGen=l 

!-•* A’'p you sure'^ !en:t epcliCGtic"} 

DEFINE WINDOif Ev:t_Apc prC" 11,17 TO 13, £2 22UB.E 
t-- Pause iTrS£3Qe bo” 

DEFINE WINDOi? Pause ‘'R2" 13,00 'C 19,79 DuuB.E 
)If^ 

IVATE yiNDO;? FullSer 
4,00 

3,CC SAV “Loadirq.,.’' 

BORDER TO DCJELE 
Bar 

INE flENU USERBAR NES5A6E "Select a" opticr with the arrew keys ard push 
ER." 

INE PAD PADJ OF USERBAR '^R[‘1FT "D:ve“ AT 1,1 

SELECTION PAL PA2J CF USERBAR DO ACICI 

INE PAD f^AC_2 OF USERBAR PRChPT “Log^ AT 1,10 

SELECTION PAD PAD,2 OF USERBAR DO AOTCl 

INE PAD PADJ OF USERBAR !^RC«PT “Quals^ AT 1,1S 

SELECTION PAD PAD_3 OF USERBAF DC ACTOl 

INE PAD PADJ OF USERBAR PROr.RT “Exit' AT 1,2B 

SELECTION PAD PADJ OF USERBAR DO ACTOl 



AQ 



BORDER TC DOUBLE 



DEFINE POPuF DIVE 1,1 Tl 4,17 ; 

flESSASE “F-ess ENTER tc e/e-ter = dive C" ehe ^evT 

DEFINE BAR 1 DIVE *E?te- 3 d:v=^ 

CN 5 ELE:TICN PCPUP DIVE DD ADTOD 
V "/ 

SET BORDER TC DCJBLE 
I-- For^p 

DEFINE PDF'jP LOB FRC« 2,10 TC £, 2 - ; 

HES 5 ASE "ChcDSB an option a""ow ^eye pueF RETURN or ehe use (a^rc« Fey 
DEFINE BAR 1 LQE PRC^-T “Find a Ic;*^ 

DEFINE BAR 2 OF IDS PRCPP" ‘^B^OKze foLnd icq' 

DEFINE BAR 3 OF LD 5 PRC.»-PT "Print *'Dunn ioq^ 

unmuut 

ON SELEC'ION PO'^'UP LOS DC ACTC 3 "EGDD' 

ulutnuni 

99 H ^ B 

SET BORDER TC CCuPLE 
I- Popup 

DEFINE «^'OFliP GOAL FRON 2,15 TC 5,^2 : 

MES 5 ASE *'Js 9 ar’^DK leyE t: seiEot a*' optio" ano p’^ssa R'ETjrn s.aa --•■■ (a^ro^ kaya 
DEFINE BAP 1 OF 3 JAL ^Rj“-T “Fine a qual list" 

DEFINE BAR 2 Oi^ QUAL PRD«P" '--int ^ound qua! list^ 

mtuimu 

ON SELECTION POPUP G.AL D 2 ACT 05 ^ITH "SOOD" 

muitum 

9? 

SET BORDER TO DOUBLE 
I- Popup 

DEFINE POFL" EXH FPO*- 2,25 TO 4 , 4 = ; 

«ES 5 A 5 E 'Position: '+CHR{ 27 )+C 4 R( 2 £;^CHR( 2 D)iCHR: 24 )+ Sele::: 
> 0 HR( 17 )tCHR( 19 t)- 0 HR( 217 )-’ Hslp: FI' 

DEHNE bar 1 OF Ur PROP-^ "Ratu-r t: DBASE IV" 

ON SELECTION FO-U'^ EXT DO A 0 TC 5 

<’,n R 0 

umtumtui 

ENDIF 

muuntiiiu 

RETURN 

I- EOP: NPDEF.PP 5 

PROCEDURE iHELPi 
lnJey=INKEy(i 
ON KEV LABEL Fi 

lcj)opiserL=IIF( ’* = PCPUPO, riENUO, POPUP! ) ) 

ACTIVATE HINDOls Heipsor 
SET ESCAPE OFF 
ACTIVATE SCREEN 
e 0,0 CLEAR TC 21,79 
§ 1,0 TC 21,79 COLOR RS+ZEB 
§ 24,00 
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24,2s SAr' ary kev t:; ' 

0,0 5^y 

; CASE 

- help ior *9nj L'SE-rAr: 

!EE "USERBAF” = !c pcpser: 

^ 2,2 5AY "No Help defined.® 

- help fer cenu DIVE 
15E "DIVE® = Ic^popreni 

^ 2,2 SAY “N: Help deemed. ^ 
help for ssHL LOS 
ISE “LOS" = Ic^ccpse-i: 

§ 2,2 SAY "N: He!; deemed.' 

- help for seni DUAL 
iSE "Q’JAL" = 1:^P3PPE-J 

§ 2,2 SAY ®N: -el: denred.® 

- Yelp fc" seri'j 

SE "EYT" = lc_Dc:seru 
^ 2,2 EAv “N: Help desired.® 

HERiiISE 

5 2,2 5AV se^j nane, relr He= neve' cefirec." 

n'^^cc 

Jey=IM‘-EY(C; 

T ESCAPE ON 
24,00 

ACTIVA'^E l^INOO^- Helps:' 

, fEY label F! do IHELFI 
TURN 

- EOF: IHEL^I 



mimniimiiumntuiuniinmnmnuHiMunujnrunn 



Frogrzrc ; USEFBAP.FfS 

Authpr.. T-is le an APPJEATION OBJECT. 

Date : e-04-91 

N:ti:e : Type ir f nrnatic" here or preetinds to yoL" uSE'e. 

dBASE Ve*^....: See Applicatior icenu tc use as sipn-on banner. 



Senerated by.; APBEN version 1.3 

Description..: FIRST ffENO .EVEL IN USER APPLICATION. 

Description..: Nenu actions 

[mtimiiiiiuniiniiutumiiiiimiuiiuuiiimmiumiint 

(OCEDL'RE USERBAR 
\RAMETER5 entryflg, BATON 
ilVATE gc^prognuB 
: J5rognua=“0r 
:i COLOR OF NQRNAL TO «^/B 
.EAR 

aVATE IcJpSen 
fJpEen=LfRIN(STR(gn_ApBen)) 
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DC SETOl 
IF gr^e'rcT > 0 
Qr.__9rrc'^=0 
RETURN 
ENDIF 

t" Betore aenu zozz 



ACTIVATE MENU USERBAR 
§ 0 ,C CLEAR TC 2 J 9 
I-- After f.eni: 

RETURN 

I- EOF USERBAR 



PROCEDURE SETOl 

ON KEY LABEL Fi DO IHE.Fl 

DO L'BFOl open seru level dataPase 



IF qn^errcr = 0 

IF qljolDr .AND. .NOT. SET! ^A-^TRIBU"E= ) = ,RE+/ 5 E ,N.^N “t; 

CHR(3e)^CHR{32)"^ ^-/N,a/E,RS-/EB,B^i!;,N/EB^ 

SET color DF NGRf'AL TO 
SET CCLOR OF NESSACES TG 
SET COLOR OF TITLEE TO «/B 
SET CCLOP^ OF HIShLIENT TC RS-/GP 
. SET COLOR C?^ m TC RS+/SB 
SET COLOR OF INFDR?fATICN TO 
SET COLCR C" FIELDS TO N/EB 
ENDIF 

SE' BORDER TO 

§ 0,0 TO 2,79 DCJBLE COLOR R 5 t/GB 
§ :,1 CLEAR TO 1 , 7 E 
§ i,l FILL TO i ,75 COLOR W+/N 
§ 1,1 SAY “Dive“ color K+/N 
§ 1,10 SAY =Loq” COLOR 
I 1,18 SAY "Duals' COLOR W+/N 
§ 1,28 SAY "Exit" COLOR fe^/N 
ENDIF 
RETURN 

PROCEDURE DPFOl 
CLOSE DATABASES 

I— Open aenu level view/database 
lc_^£e 5 sage=“ 0 " 

ON ERROR lc_ies£age=LTRIN( 5 TR(ERR 0 R())) + " •+fiESSASE() 

USE DIVE. DBF 
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ERROR 

_9rrc'=VAL(!:_je5S£:B: 
gn_errcr > 0 
DO PausB fe’lTH ; 

'Errcr CDerin; DIVE.DrF‘ 
l:_n=a=’ Y’ 

RETURN 

31F 

_nE«=' Y' 

.EASE lc_Ees5s;B 
rURN 

3CED‘JRE ACTCl 

“ Begin USER5AR: Bf-R ^^enu Actions. 

• (befc^e itEU, a:ti3n, rc s^te' lie?. 

[VATE lc_new, l:_db^ 

_neh=‘ 

^db^ = ' ' 

CASE 

)E “PADJ*' = FAI;) 
lc_new=''^" 

DO DIVE l^IT- " 01" 

?E “PAj_ 2^ = ^AD, ; 
lc_reK=' 

do"lOG t^iT- ' or 

:E ^FALJ*' = FAI') 
lc_ne*<=' Y' 

DO Gi-AL IvITH ^ Cr 
;r ‘PADJ” = PAD(; 
k_new=' Y’ 

DO EUT rITH ^ Ci" 
iERii’IEE 
6 24, OC 

§ 24,21 SAY rnis ik: hs: nn a:t::n. Fre=s a leyr 
x=INYEY(0) 

§ 24,00 
jCASE 

I «E£SA6E TO 
gcjuit=’0’ 

IF"LEFTlentrvflg,l) = 

DEACTIVATE «ENL‘ 

ELSE 

DEACTIVATE “EMj USERrAF; 

ENDIF 

DIF 

l:_new=' Y' 

k Jile=*SET‘-‘+qc_proQn'i(s 
DC ikjik. 

DIF 

TURN 
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mtnumiiimmimimmmmnmiuiiimiiiiiuiiuiitnm 



I Proqraa 

t Autqc^^ 

t Date 

t Notice 

t dEASE Ver... 
I Benerated by 
I Description. 



DIVE.PF.E 

This 15 an Ap^^lICATION OBJECT. 

E-04-91 

Tvp? infor?.ation here or qreetirqs tc ycir 'jse^s. 
See Application aenu to uSe as sign-cn banner. 
AP5EN version 1.3 
Use^ popup for entering a dive. 



I Description..: “enu actions 

mtttttttuutuutttttututtutuutttittuiutuuuutuuutttu 

PRDCED’JFE DIVE 
PAHA^ETEP entrvMg 
PRIVATE g:_prognus 
g: _proqnu5=“02" 



CO SE'^02 
IF gn_e-c- ; 0 
qn_errcr=0 
FE'^ypN 



l-- a?r'Li code 



ACTIVATE POPUP DIVE 

t— After neru 

RETURN 
t- £DP DIVE 

PROCEDURE SETC2 

ON KEY LABEL DO IHELFl 

DO DBF02 Vi open senu level database 

IF gn_errcr = 0 

IF gl_oo]or .AND. .NOT. SET(“ATTRIBUTE') = “k*/B,R£+/SB,N/N V; 
CHR(3e)+CHR'3E!^" Kt/N,«/B,RE+/5B,&/fi,N/EB” 

SET color of ncrhal to 

SET COLOR OF MESSAGES TO Wf/N 
SET COLOR CF TITLES TO «/F 
SET COLOR OF HIGHLIGHT TO RGWBB 
SET COLOR OF BOX TO R5f/5B 
SET COLOR OF INFORHAIION TO B/« 

BET COLOR OF FIELDS TO N/BB 
END IF 
ENDIF 
RETURN 
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DCEDURE DE"C2 
CSE DATABAEES 

- ieve. vis^/dstawase 

j&553;e="0 " 

ERRCn lc_5e55aG?=L‘RI^5’R:EFRC^ });+^ 
E DIVE.DE^ 

ERROR 

_errc’^=VAL{ lc_59 = 5a;5 
gn_9r"or > 0 
DO Pause KITH ; 

'Error cpe'^i-rg riVE.BF"*' 

Ic_ne«='y' 

RETliRi, 

DIF 

__n9K=' V' 

.EASE lc_£e=sau8 
^URN 



jCedl'Re actc: 

- Fec.r DIVE: FOFu'^’ -er. A:t::rs. 

- {before ite?, act.cr, a-.:! afuar 

:VA"E I:_r;eK. 



CASE 

EE BARO = 1 

TP -] t-^'h 

Dj BefA:t 

en::^ 

cr"" crr,pri^;Apr» Qfi 

SE^ ^ESSASE "0 

t-- Desr: attacF LIvEFCF-' 

SET FORM Tu DivE^CF- 

apfen: 

t— close iC^r.at ■'::e sc as net tc £^*e:t REhI s 
SET FGR^tAT TO 
SE'^ SCOREBOARI OFF 
IF .NOT. gljatch 
DC AftAct 
ENDI- 
DCAEE 

T r.ESSASE TC 

QC JUlt='Q‘ 

IF^EFTtentryflg,!) ^ 

DEACTIVATE HENL' 

ELSE 

DEACTIVATE rO^'U^^ kk DIVE 
ENDIF 
iDIF 

Ic rew='y' 
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k_fil8='SET‘tQ:_rro^"iUr. 

DO McJiIe. 

ENOIF 

RETURN 

umuuuutuuiuutuuumuutmuiuiuumutuutuunu 



t Progra? 

< Awthor. . . . . . 

I Date 

< Notice 

I dBASE Ver... 
I Bensrated by 
X Description. 



L0S.PR5 

Tr.’is IS a" A^FlIChTIDN ['PjECT, 

B’O'i'91 

Type into'^satiDn nere or greetings to ycL- lise-^s. 
See Application cer.u tc use as sign-on tamer, 
A^BEN ye'sior 1.3 

Log popup ir user application o'^ dive log 



t Description..: Nenu actions 

uuuunuumtutmmuiuiuiunMUUunummmummi 

PROCEDURE LOG 
PARAMETER entryflq 
PRIVATE gc_prognjs 
g:jirD;mj.'="C3'' 



DC SETO" 

TC C’-r^T \ ft 

if ^ . _e . 1 ij . / V 

gn__e^ror=i) 

RETURN 

ENDIF 



<— Beior° ssni; cods 



fiCTIVfiTE PQfdF LEE 

I-- AFte' ssru 

RETURN 
I-- EDF IDE 

PROCEDL'RE SET03 

OX KEY LABEL FI DO l^’EL''! 

DC DEF03 it open *snu level database 

IF gii_erro.' = 0 

IF gl_cclcr .AND. .NOT. EET'"ATTF.1BL'TE‘) 'K'/B.RE-t/SB.N/N 
CHRlOei+CHRlDEj*' «+.^N,K/B.R6+/6S,E/K,N/ES’ 

SET COLOR OF KCRNAL TO K+/B 
SET COLOR OF ItESSAEES TO N+/N 
SET COLOR OF TITLES TO W/E 
SET COLOR OF H1GHL16HT TO RB+ZEB 
SET COLOR OF BOX TO F;E*/B? 

SET COLOR OF INFORMATION TD B.'K 
SET COLOR OF FIELDE TC N/EE 
ENDIF 



?i 



IIP 

’URN 



ICED'JRE DB’^C: 

!SE DATABASES 

• Open seni: level vien/database 
_Ee5535e="0‘' 

ERROR iC seesaqe^LTRI^lSTRiERRCRO j “^^EESASE!) 

: nVE.DB- 

ERROR 

_errcr=VAL( Ic jtesaacs) 
gn_error > 0 
DC Pause i^ITH ; 

"Error openinq DIVE.ES-'' 

Ic_ne^='Y' 

RETURN 

IF 

_new=' Y' 

EASE lc_f.ess£qe 
L'RN 

wEDURE AC^03 

Feq:n LOS: FDPL- Actiors. 

{befce iter, action, anc a'ter :te?; 



muuimuu 

A^E^ER BATCN 
.NOT. rATON=‘eOCE‘ 

0 VICLATIC 

r 

umuumum 

VhTE lc_ne^, 

_new=’ 
db^ = * ' 

CASE 

;E BAR!) = 1 
IF .NOT. gljatch 
DO BefAct 
ENDIF 

SET SCOREBOARD ON 
SET ftESSAEE TO 
umtmmmmmutu 
DO JOINi.PRB WITH "50CC“ 
tuumiuuutumuuu 
SET SCOREBOARD CPF 
IP .NOT. gljatch 
DO AftAct 
ENDIF 

:E BAR!) = 2 

t“- Open Itei level view/database and indexes 
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Close databases 

Ic_ribi='y ' 

Ic ff?5sa:ie="C“ 

DN’ERROn']cj=5iaLe=LTSI^!!STR(EFEER{),^^ 

USE lEMF.DBi^ 

ON ERROR 

5n_e'^ror=VAL( Ic^iEsssaqe; 

IF qn^^Error > 0 

DC Fause WIir ; 

"Error cfening TEHF.DE"" 
qn_6rror=0 

l:_fi]E="5ET"^gc jjrconu" 

DO Ucjile. 

RETURN 

END!- 

Ic_nBw=‘ Y’ 

RELEASE lc_cs55aq= 

IF .NOT. cI_batLr: 

00 HcfAct 



"'^^ESSASEt ) 



ENIIF 

SET MESSAGE TO 
)- Oes:: Report 
REPORT FOR^". LQE_REf^O PLAIN 
WAIT 

!F .NOT. gljatch 
DO AftAct 
ENDIF 

CASE BARO = 3 

t-~ OpEr Ites IeveI visw/datataEs and irzEXES 
CLOSE DATABASES 
k_bbf = 'V' 

Ic jE5sage="0' 

OnIrROP kjEEsagr=L’RIN(E'^R(ERhlJR(;}k“ ^-^‘^EESAEE! ) 

USE TE-P.DBF 
ON ERROR 

gn_=rrc"=vAL(l:_3:E = £a;r: 

IF qr^Errcr ; 0 * 

DO PeJSE KITri ; 

"Error cpEninq TE.NF.DBF" 
gr jrro’^=0 

kJilE="SET"-qoj)roqn-jj 
DO ikjile. 

RETURN 

ENDIF 

k_r)Ew='Y' 

RELEASE k_iE55aqE - t 

IF .NDT. gljatch 
DC BefAct 

ENDIF I 

SET NESSAGE TO ^ 

I— Deso: Rsport 
SET PRINT ON 
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REPORT FORM LOG_RE»^C PLAIN KIIJEr 
SET PRINT O^F 
IF ,NOT. qljatch 
DC AftAct 
ENDIf^ 

DCASE 

I MESSAGE TC 
gc_quit='G' 

IF LEFTlentryMg,!) = 

DEACTIVATE MENU 
ELSE 

DEACTIVATE Pu^^UF kh LC6 
ENDIF 
DIF 

lc_new=* Y' 

Ic JiIe=*’£ET'’+q:_prDg^’jc; 

DO Uc_fue. 

DIF 

lcJbf='Y' .AND. .NO". 
lc_file='DEF“'^qc_oro:r!u.'ii 
DO &kJ:lE. 

DIF 

tuiuuuitt 

DIF 

utuuutttttt 



TURN 



uunmttttuntuttmnunmumjtnumumuumnjtttti 



koqraa. 



CilAL.^RG 



Ai:thor 

D = tE 

N:tKE 

CEASE Vet. . . 
SEDE^atECi by 
Descripticn. 



This IS ar AFFLICATION DEDECk 

3-C^-91 

Type q^Eetirqs to vc^r use^s. 

See Aprh:at:or FEOa to *oee as siqr.-:o taone^. 
AF'SEN vE^cicr, 1.3 

qoal poqj; fc'' jse'^ a:;:::at:cn for c:ve !cq. 



Descti ptior . . : Met/j aotions 

ttutttttttnttttummuunumunutmtnimunuummi 

OCEDL'RE GOAL 
RAMETER Entryflq 
IVA^E gc^proQnuff. 

__progniiif=’‘04“ 



SET04 

gn^srror > 0 
qn_8rror=0 
RETURN 
DIF 



- BEfore Benu codE 
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ACTIVATE POPUP GL5A. 



I- Aftpr EEH- 

RETURN 
I- EOP DUAL 

PROCELURE 5ET04 

ON >:EY LAEEL FI DC IHE.Fl 



DC D&ROA H open aenu level dotabase 
IF gn^errDr = 0 

F’qljolDr .AND. .NOT. 5ET{ ‘^A'TRIEJTEM = 
CHR(3a)+C^^R!3S.-“ ii + /N,F;/B,RS*^6P,B/ti,N/3P* 

SET COLOR DP NDRUA. TO 
SET COLOR OF rESSAEEE TO 
SET COLOR OF TITlEE TO k'E 
SE^ COLOR 0^ HI3HJ0HT TO P3-/CE 
SET CDlDP POX TO RE^/6E 
SE^ COLOR C'^ INFORflA^IGN ^0 B/k 
SET COLD- OF FIELDS TO N'£P 
ENDir 
ENDIF 
RETURN 

FROlEI'LRE DEFOi 

Close databases 

I” Open Rer'j level viPn/dctabase 
:c_Ee5£age="0‘' 

ON ERROR l:je55a5e=.TRI^!STRiERR0R;)))-“ “-?1EEEASE() 
USE DIVER. DBF 
ON ERROR 

gn^errar=VAL( l:__r.e55aqei 
IF Qrjer'cr / 0 
DC Pause «ITH ; 

“Error cpening DIVER. DrF*^ 
lc_r;e«=' i' 

RETURN 
ENDIF 
lc_new=’ Y' 

RELEASE Ic^cessage 
RETURN 



PROCEDURE ACT04 

I-- Begin DUAL: POPUP Menu Actions. 

I— (before itee, action, anc after itea) 

I 

tllUllltllllll 

PARAMETER BATON 
IF .NOT. BATON=”SOC'D" 

DO VIOLATIQ 
ELSE 
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iiiiimm 



IVATE l:_n5w, lc_3b1 
_new=' 

Jbt=' * 

CASE 

BE BAR;) = 1 
IF .NOT. gl_r}3tch 
D: BefAzt 
ENDIF 

SE" SCDREFDARI Dfi 
SET HE5SA5E TC 
miuiuiiiuiiu 
DC QUALLIST.FRG ^'ITh ’'GGGL' 
iituumumui 
SEI SCOREBOARD OFF 
IF .NOT. Ql^batch 
DO AftAct 
ENDIF 

:E BARi) = 2 

I— Open lies level v:eh 'batsbeee an: incdxei 

CLOSE DATABASES 

kJbf=T 

1c_SE55356 = ’^D" 

ON ERROR k_stessaue=LTRif!iS'R!E^RDRi:))t‘’ ^^flEEEAEE!, 
USE TEfiPD.DBF 
ON ERRDF 

qn jrror=VAL( k_r655aqe'; 

IF 5n_errDr ;■ 0 
DO Paj=s KITH ; 

‘'Errcr opening TE^^rkLB^ 
gn^error=0 

k Jile="5E ; "*qc j}rogn‘jrr 
Dc'^kcjile. 

RETURN 
ENDIF 
lc_new=' Y‘ 

RELEASE k_ffie=5a;e 
IF .NOT. ql_takh 
DO BefAct 
ENDIF 

SET MESSAGE TO 
I— Desc: Report 
SET PRINT ON 

REPORT FORM DUALRPT PLAIN NOETECT 
SET PRINT OFF 
IF .NCT. qljatch 
DO AftAct 
ENDIF 
DCA5E 



El 



3E" r.EESAEE TO 
IF QC_QlJit='Q' 

ip LEFTfentryfigai = ‘’B*' 

DEACnVATE r.ENU 
ELSE 

DEACTIVATE POPUP H QUAL 
END IF 
ENDIF 

IF l:^nsw='Y' 

IcJile=’'SET^+:c_prcgnur 
DO ilcjile. 

ENDIF 

IF k_dbf='Y‘ .AND. .NOT. k_n?K=’V 
kJiie=“DBF'+qc_?rc;5nu5 
DO ill file. 

ENDIF 

ttiiitm 

ENDIF 

uiium 

RETURN 

iiiutuutuiiuuuiuiuuuuiiutnmuuumnnnuiuuuiii 

I Prcqraic ; Ej(IT.^^RG 

I Author : This iS an A'^FLICATION OPJEET. 

I Date : S-04-91 

t Notice : lyoe info^sation he’^e cr qreetinqs to your users. 

I dBASE Ver....: See Aosl icatiori aenu lo use as sigrron tanner. 

I Senerated by.: APEEN versicn 1.3 
I Descrioticn. 

I Desc^ipticr . . : Nenu actions 

miimimtniniuummimmutummtmuiuuuniuutn 

PROCEDURE EXIT 
PARAKETER ertryfk 
‘PRIVATE 5 ^ jircgrus 
gc_prcQnua="Ct‘’ 



DO SET05 
IF qn__erro' > 0 
qn_e’Tor=0 
RETURN 
ENDIF 



l-~ Before eenu code 



ACTIVATE POPUP EXIT 

I— After «enu 

RETURN 
I- EOF EXIT 
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^OCEDURE SETO^ 
i m LAPEL i'i DO IHELP] 



] DPF05 U cpe-, iteru level c:3taba5e 



■ gn^error = 0 

F*"Ql_CDlor .AND. .NE'f. SET! ‘^ATTF.IELTE^ ) = “r^/E,R'3^^6E ,N 
CHR! 3 B)^CHR: 3 B)^' i^+/K,^l/B,RE^^eE,e^‘A,N/ 3 P^ 

SET COLOR CF NORMAL TO 

SET COLOR OF flESSASES TO 

EET COLOR 0^ ^IT.EE i^'E 

SE' CCLOR Q- HIS^^LIGH" TO R6-/GE 

SET CO.OR 0^ BOX TO R5-/6E 

SET COLOf' 0^ IN^G»':iA"I!:N ^0 E/K 

SE"^ COLCF. OF FIELDS TO N;5E 




;DCEDUFE DEFOL 
.OEE DA*^ABASES 

- Open level vier/datsLase 
;_«ess 2 ge=" 0 " 

1 ERROR ]:^£955a?e=L’RI^(STRiER!^0R 
:E dive. DBF 
i ERRO- 

;_errcT=VAL(ic._ss 55 a:e; 

' gn errcr > 0 
DO Rause rITH i 
^E^^rcr DIV^.DPF^ 

Ic_new=' Y ' 

RETURN 

iDIF 

_new=’ Y' 

LEASE k^seseege 
Tl'F.N 



ju’’ ‘'+jiEEEASE( ■ 



ICOEDORE ACTOO 

- Begn EXIT: '"OPUF Menii Actions. 

■“ fLskre iter, action, and aker ite?.) 



^IVATE lc_n 9 w, kjbf 
:_r)e;%=' 

:Jbt=' ' 

tmtimimt 

JN pkrip adidata -s -elRAO t.dbf 

mtuitiiui 

3 CASE 

^SE BARO = 1 
t— Return to caller 
gc__quit='Q' 

IF^LEPKentryng,!) <> ’B' 
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DEACTIVATE PDFUF P. EiT 
ELSE 

DEACT: -^TE I--ENU 
END!!' 

RETURN 

ENCCASE 

SET MESSASE TO 
IF gc_qait='Q' 

IF LEFT(entryfl?,l! = 'P“ 

DEACTIVATE KENU 
ELSE 

DEACTIVATE PCPUr L*. EXIT 
ENDIF 
ENDIF 

IF Icj.ew='Y' 

Ic J:le="SET'’+QC_prDgTufr 

ENDF 

RETURN 



luiinmnmmunuumunnunnimnuutiutmnxmntiuiuin 

in 

I- Nase. DIVEFCR^l.-flT 

t - Date ; 3-04-91 

I— Versicn....: dPASE :v, "o»'Eat 1.1 

I-- Notes. Fo^aat files use *" as deli.T:ters‘ 

intnnnmnnnnnmnnmmtmnmiinmnmnnnnnntnnm 

in 

I-- Fermat ^ile initialization code - — 

I-- Scse Gt ttese PRIVA7E variables are created based on CndeSen and eay not 
I” ce used by vCw-r particular .ist file 

PRIVATE :c_taH., Ic^curscr, Icjisplay, l:_status, l:_carrYt, 1 c_o’'g:,; 
Irjypeand, gc_cut 

IF SETrTALP! = "ON*^ 

SET TALL OFF 
Icjalk = -ON" 

ELSE 

Icjalk = •OFF- 
ENDIF 

k^cursor = SET! “CURSOR") 

SET CURSOR ON 

k^status = SET(“STATUS“) 

I— SET STATUS was ON when you went into the Fores Designer. 

IF k_status = “0FF“ 

SET STATUS ON 
ENDIF 



84 



- § SAY SETS Frccessinq. 



- Fo^eat Pa:e: 1 
0,3 TC 6,56 DQL'P.E 

2.6 SAY "Dive data ertry 

4.6 SAY “fill in the fclia^ing data conce^ninQ yo’jr dive'^ 

8.7 TO 19,50 

?,B SAY "diver l.D. nuffter (SSt;:" 

9,3B BET Diver jus: PlSaiRE ■’99F-?9-99=9" 

10.8 SAv »date’~of dive:" 

10.38 BET Date 

11.8 SAY "serial (nth dive of tr.e dav):" 

11.38 BET Sena! PICTURE "9“ 

12.8 SAY "day right:' 

12.38 BET Nitejay PICTURE "ma" 

12.44 SAY "dive" 

13.8 SAY Mres^- salt;" 

13.38 BET Freshjalt PICTURE ^Unv 

13.44 SAY “Kcte^" 

14.8 SAY "water te^eratu'’e: " 

14.38 GET Te£DE’'ati;r PICTURE "99" 

14,^1 bay "decrees F" 

15.8 SAY "saxii^uj deoth of dive;" 

15, 3B BET Eepth PICTURE "99':” 

15.42 SAv "feet" 

16.8 SAY "average u/w visitility; " 

16.38 BET Visibility PICTURE "999" 

16.42 SAY "feet" 

17.8 SAY "a.fcur.t cf air ccrsuse::* 

17, 3E BET HI," used PICTURE "9999“ 

17.43 BAY "051" 

18.8 SAY ‘total dive tisie;'-’ 

18,35 GE' Tne ‘^ICTURE '9.-^ 

1C a C £j V ^ h ri I c ' 

AD 

- Foreat Page: 2 

0,2 SAY "Does the site you dived at have a systes site rusber’^ (che 

1.4 SAY "printout) If it does, enter it here:" 

1,42 BET Site JUS PICTURE “999" 

1,47 SAY "I^ not, describe the site in the" 

2.4 SAY "next data field, dive resarPs." 

4,2 SA‘»‘ "dive remarks: ” 

5.9 BET Divejsks PICTURE ”§S65 

unnnmnnnunmuuuuxuuunmumm 

y^xxmxmxxummmnmtmmmmmnimi 

nnnnnxxnnnxnnnnnnnnnnnmmnr 

6.9 BET Divejei^s PICTURE "§S6E 

nnnnnnnxnxxxxxnnnunxnmnnnmmn 

mimmmxxnnnmmummxmmxmumi 



cY 0 ’' current ^ite" 
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nn)(j():n^^):rt\nnntn)7nxixnnn.xxnjnnavA.t): 

^ 7,9 BET D:vej£kz MCIuFE “sEEE 

nnnxnxran,nxnnvnra)(xxx.njn.^:ai^\nnnny/> 

xxxxxxvnxxx«vnnxv](^nxxxvvnnvYvxvvnvxxx)xxxvnxv 

xxxxxxnxxxxxxxxxxxxxx):xxxxxxx:axxxxxxxxxxxxxxxxxxxx“ 



I— SET STATLS wa? CN Krien ycj wsit intc the Dssi^'ier. 
IF Icjtatue = ‘'CFF^' Entered iz'i with statue 

SET STATUS OFF Vr "u-r STATUS '^OFF^ or the way out 
ENDIF 

SET CURSOR U:^curso^. 

SET TALt ll:_ta!k. 

RELEASE lc_talk, i:_'‘ie:rie , i:_5tatue 
I- E0-': DIVE''DR^F-:^ 



I dBASE IV .-'RE file 

I J0IN!.!^RS (joins dive.d:^ with diys'.dt^ anu site. dbf s^d sto-ss to tent.dtf 

I for one diver, fields are set ^cr a dive :cc.) 

mnituiii} 

FARAHE'ER EA'CN 
ON ERROR CANCEL 
IF .NOT. BATON = '^SGOD^^ 

DO VIOLA'IO 
ELSE 

mttumum 



ACCEPT "Enter the dive," nu-^re^ or the dive?' fthcs leu you wish t: ^i":: 
to nuste'^ 

SET FIELDS TO 
SELEC" 1 

USE DIVE. DBF AGAIN NOU^DATE 

USE DIVER. AGAIN NOUPDATE IN 2 ORDER DIVER_Nu^ 

USE SITE. DBF AGAIN NOOPDATE IN 3 ORDER SITE^Njff 
SET EXACT ON 

SE^ FILTER TO ( {A'>DIVEF;_NJ“.=nusber ) j .AND. FOUND12) .AND. FOUND!; 

3) 

SET RELATION TO A->DIVEF;_VJf^ INTO B 
SELECT 2 

SET RELATION TC A->5ITE_NU« INTO C 
SELECT 1 
SET SKIP TO F,C 
60 TOP 

SET FIELDS TO A->DATE,A->SERIAL,A->SITE N'JK,A-)DIVER_NUM,A- 
>FRESHJALT; 

,A->N!TEJAy,A->TEMPERATUR,A->DEPTH,A->V'ISIBlLITY,A->AIR_USED,A->TI‘1E; 



BE 



^->DIVE.RH^^S,B’;FN^“E,P- 
ET FIELDS DN 
ET SAFETY 
&ftSE TEUP.DE" 

■PY TO TE?!P.DBF 
ET SA»^ETY ON 
luuuum 
^d:f 

runmuuu 

Bturn 



,E->LNA'^E,C“;T^PE,D“ 'NA*^E 



ProQ’'3i^. E:^,l[E RE'^j.^PS 

Date B-CF-9i 

VErsic?. cEAEE Iv, 1.1 

Notes: 



Prior t: runr.ir: this prcced^*'e with the DO cos.ireto 
it 15 necessary «se LODATE te:a«5E the COKTiNLE 
statesert is in the issin loop. 

Pa-areterE 

^.RA!1ETEPS ql__nc=ie:t, g!_o!ar, oljw^^s'V, ::_rEa:r.o, 
i The first three qs^asete's S'^e of tvte Logical. 

I The ^corth parameter is a strirq. The fifth is s;:t"a. 
U^'ATE __oe:ect, _i^?'ao 

— Test for .no recodes ^oo"d 
• Ecm .OR. .NOT. FCjnDi! 

RETURN 

tu'^n word w^ap aode o'ff 
«rap=.F. 

F jilenqth < (_p:pa:i,''p 16^1) + (_p-sp3cirq t i) + 2 
SET DEVICE TO SOREEn’ 

DEFINE WINCEk qw_reqcrt FRO- 7,17 TO 11,62 DOUBLE 
ACTIVATE WINDOc^ gw_report 

§ 0,1 SAY "Increase the page length fc" this repc^t." 

§ 2,1 SAY "Press any key ..." 
x=INFEY(0) 

DEACTIVATE NINDOi^ gw^repert 
RELEASE WINDOW gwjeport 
RETURN 
NDIF 
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_plinerG=0 s?t lines tc :srG 

I- NOEJECT parar^ster 
IF ql_nD 8 ject 

I!' jsj9ct=“EEFCFi” 
j:e:ert="NCNE' 

ENDIF 

IF _pe:ect="POLH^ 
jeject^-AFTEF" 

ENDIF 

ENDIF 



I-- Set-up envircnfFert 
ON ESCAPE DO Prnabcrt 
IF EET(''TALr! = ’DN'^ 

SET TAj: OFF 
gc_tdl?. = ^DN‘' 

ELSE 

c:_taIk=*DFF'‘ 

ENDIP 



gc_5P3:e=SE’(^5PACE‘^; 

SET SPACE OFF 
g: Jise=T!f^E{ ) 
gd_uate=DAIE( ) 

QlJandlvF. 
gl j:rntf lq = J. 

Ql_sid:-w=.T, 

gn Jengtr=LEN(gc_h9ac:r:) stc^e length c* the HEADINS 
Qn_level=2 U current ba'd being p'ccesseu 

gr_c3ge=_psgen: grab current page nupper 

ncraroz rcn^'-ir'' t np* r •. r * C'^ar^rr 



H systen ti'e fo" predefine: fi= 
II systes cate * b r n 

II first and last page flag 
fA Cc.-tinje printing flag 
B flap fcr chec'^inq widch' bands 



I— Set up prccecure page brea)^. 
gn_atline-j:Iengt'- - !j:epacirg 1 ) 

ON PAGE at line gn_atline EJECT PAGE 

I-- Print Repeat 

PRINTJCr 

t— Initialize 5 us^a"y variables. 
r_fsuKl=0 

IF Ql_plain 

ON PABE AT LINE gn^atline DC rgplain 
ELSE 

ON PABE AT LINE gn^atline DO pQfcot 
ENDIF 

DO Pghead 

B first physical page started 



BS 



glJandl = .T. 



::ntrc 
"lie Loc? 

IHILE FOUND!) .AND. .N0\ ECF!) .AND. c;i_r-ntfh 

n |ey 0 i=^ 

I**" Detail Iiree 
F 5l_5ussary 
DO Up:- J'a^s 
;l5e 

DO ^Detail 

:ndif 

|l_w:dow=,T, eratle wid:w che:kn; 

:ONTINUE 

iC 

i_prntMc 
iQ Rs'j'* 

F _piiDer,c qr,_atli''.e 
EJEC- PA 5 E 
KDF 

0 Rsusr. 

C Reset 

ETURN 

F 

A 5 E 

RIKTJEE 

ese t 
!RN 

Ip; B:\LC 3 JE'^Q.FRS 

wqdats 5u.“*s’'y fieic'^ a'^.z-^cr zaizulated "^islds. 

:EDURE U;c_Va's 
5us 

<5 *11 51 1 1 mE 

IRK 

IP: Upd_Var5 

Set flag to get out of DC ^’HILE loop «Nen eezape is pressed. 
IEDURE PrnaPcrt 
)rntf lg=.F. 

)RN 

)P: Prnabcrt 
lEDURE Pgheac 

IIF(gl_plain, " , ‘'Page No.' ) AT 0 ,; 

■(gl_plain,'’,_pageno) PICTURE - 999 '“ AT 9 ,; 
ive log for*" AT 22 ,; 



E9 



Fnass FUNriCN 'T 
FUN-TICN 'T' AT ‘E.; 
Lnate Fl'NZ^'ON =T“ A’ El 



I-- f'rint HEADING para'-Ets: :e. F.EADFT I^OF*' 

IF .NOT. pljjiair .AND. v_!E'.;tF ' 0 

V qr_Hpedjr 5 FjNCTlCS ‘I ;v“*LTF.!.H 5TF(_'Ea'3:^ 



.HEADINa <espD 

JffDrq^r \ I 



END IF 

IF .NOT. gl_p!air 
pd_03te AT 0 

0 

ENDIF 



"Date* AT 0,; 

“Site naas cr Iccaticr;^ AT v,; 
at 40,*, 

“«3t9r“ AO,; 

AT £0,; 

“Visibility^ AT 6£,; 

“Tise'' AT 77 



•Serial’^ AT 0,; 
“used® A" 4C,; 
"tefi?" A’ 49,; 
“depth" AT 60 



RETUFN 

t E3P: Pqhead 



PRGCEDJRE Rintr-c 

9 

RETL!RN 

I E0-: Rintrc 



PROCEDURE Detail | 

IF 3 I q*:_p5pace < ;n_atl:r.e - (_ps;acirp I i * Ij 

IF gi^KiuCw .AND. ^plirsnc^T t gr_p5pa:e • gn_atline + 1 i 

ejel^ page I 

ENDI'" 1 

END IF 

DO Upd Jars 
•^’DateATO,; 

Nase FUNCTION “TV30" AT ?,; 

Air^used PICTURE AT 40,; 

Tesperatpr PICTURE ■9999999999’ AT 49,; -I 

Depth PICTURE '99999* AT 6C.: 

Visibility PICTURE •9999999999“ AT 66.; g 

Tiee PICTURE *999. 9* AT 77 ^ 

' I 

V fresh_S3lt FUNCTION “T* PICTURE ‘nuumv AT 9,; | 
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AT 20,; 

.tejay FDNZTIDN FI:T.FE ^\lU)nV 27,; 
live" AT 36 

Serial PICTURE ^9999^9^ A" 0,; 

.ve^rsKs FUNCTION *’TV30‘' AT 9 

URN 

:0P: ^Detail 

iCEDURE Rsuies 
"T otal tise;" AT 6:.; 
ffiSUEl PICTURE “999.9" A’ 7' 

_fancl = ,F. H- last race tmis*'?: 

!0F: Reuse 

<CED!JRS Pc ^ cot 
VATE _box, j-spacir.c 

_widcK=.F. H cisacle y:cc,^ cteck:^: 

ipaciriQ-l 



.NOT. -l^plain 
‘IF 

:CT »'AEE 

■ 15 the paps ruEcs" c^sater tba’' t^c s’lCiriC pace 
_paqcrc ' _pspaq= 

ECTD FOT^C^ 

19 

^r,J eve 1=^0 
)IF 

.NOT. qljrlai- .AnT. qljardl 

r,c*':^ir, "rnn nc np - c 

__y} w H w w * ! ^ 1 1 ^ 

DC Pgtead 

;Tr 

'URN 

:0P; Fqfcct 

- Process page break whe? FLAIN opticr is used. 

jCEDURE Pgplair 

IVA'E Jox 

ECT PABE 

TURN 

EOF: Pgplain 



- Reset dBASE ervircnse'it prior to calling repo’^t 
QCEDURE Reset 
T SPACE Igc^space. 

T TALI^ igcjalk. 

ESCAPE 

PA6E 
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RETURN 
I EDP: Rgsst 



t dPASE IV .(3BE file 

t QliALLIST.PRG (joins dive’^.i^f with cual.dbf a'^.d stcf'Bs tc tesp^.dbf 

t fcr one diver, fields are set for a c jalif ication listing.) 

ututimu 

PARAJ^ETER BATDN 

ON ERROR CANCEL 

IF .NOT. BATOK='GOOD“ 

DO VIOLATID 
ELSE 

tttumtmi 

ACCEPT ’"Enter the diver niiJbe^ ci tre diver wdes Owai list yc: wish to f 
to nurebe’^ 

SET FIELDS TO 
SELECT i 

USE DIVER. DEF A5AIN NOUFDhTE 

USE QUAL.DBf ASAIN NGU’^DATE IN 2 ORDER DIvER_NJh 

SET EX.ACT CN 

SET FILTER TO I {A->D!VER_NLh=nL:s:b?r j ) .AND. FOUND(2! 

SET RELATION ''0 A->DIVERJUh INTO E 
SET SKIP TO B 
GO TOP 

5E'' FIELDS TO A-)FNANE ,A-: hi ,A‘)LNh^E,B->OUAL JyA‘lE,P->CDhPANT ,E- 
>DATEjP; 

->INSTRUCTOR,A->DIVER_Nuh 
SET FIELDS ON 
SET SAFETY 0!^F 
ERASE TEhPb.DEF 
COPY TO TE.NPb, DE- 
SET SAFETY ON 
ittiimuiii 
ENDIF 

itmsmul 

return 



I PrograE B:\QUALRPT.FR6 

t Date.. : 8-04-91 

t Versions.. ; dEASE 1V\ Re;iDrt 1.1 

t 

t Notes: 

t 
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Pric’' to riin':in; tPis k;!. t^.? D2 ccir,3^d 

it 15 r^eresssrv lEe LCCA'fE t?:au5E the C0tJIN:E 
statesert is k the ?.air !cc:. 

“ Paraaeters 

RAHETER5 g]_cceje:t, cl^rlain, q1_5u^?5^y, QC^eadihg, g:_ex:ra 
The first three pa’^aseters are cf type Logical. 

The fourth parameter is a string. The ^ifth is extra. 

IVATE j:ej£:t, 

- Test for n: records found 
ECF{) .CR. .N3I. FCUNDi! 

RETURN 

DIF 

* turn word wrap s:de oM 
rap=.^ 

_plength < (j^spac-MC J E ^ I) !_pspac:nc + 1) * 2 
SET DEVICE TG SCREEN ' 

DEFINE WINLCy OK^repc-t FFCh 7,1- '3 11, £2 DDUE.E 
ACTIVATE ii^INDQW gs^repcrt 

§ 0,1 SAY "Increase the page length for this ^eport." 

§ 2,1 SA^' "Press b ^.\' Key ..." 
x=:NKEY(0) 

DEACTIVATE felNCGs c«_r9por: 

RELEASE i^INDCb gwjepo^t 
RE^^URN 
^I " 

lif.eno-O set lines to zero 

' NOEJECT para^ete’^ 

Ql_n.oeje:t 
!F peje:t="rEFGRE” 

_peject="NCNE‘' 

END IF 

IF Jeject^-PCTH" 
j)eject="AFTEP^ 

ENDIF 

DIF 



- 5et-up environrert 
ESCA^^E DO Prnabcrt 
SET("TALr)="QN“ 

SET TALK OFF 
gcJalk="0N“ 

BE 

gc_taU="OFF" 

DIF 

_space=SET( "SPACE" 1 
T SPACE OFF 

_tiie=TIME() systes tise for predefined field 
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gdJate=DATE;) kK systen date " 
glJancl = .F. H ^irst and last pace flag 



Ql_prntf !g=.T. U Continue printing flag 

gl_HidcK=.I. y flag for checlinq widow bands 

gnJength=LEN(gc Reading) store length cf the HEADING 
qnjevel=2 H cu-^rent band being processed 



gn_page=_pagenD y g»^ab current page nusber 
gnj)space=j)spa:ing y get current print spacing 



I-- Set up procedure for page break 
gn__atline=j)lenQthj - (^pspacing + 1) 
ON PAGE AT LlNE gnjUins EJECT ^AGE 

I— Print Report 



PRINTJCB 



IF glj)lair: 

ON PAGE AT LINE gn_atline DC Pgplai- 
ELSE 

ON PAGE AT LINE gn^atline DO Pgfoot 
END3F 



DO Pg'-ead 

gl_fandl-.T. y-^ first physical page started 

t-- File Loop 

DO fe^HILE FOUN:;: .and. .not. EDH) .and. g:_pmtflg 

gn_level=0 
I-- Detail lines 
IF gl_suc23ry 
DO 'JpdJJars 
ELSE 

DO ^Detail 
END IF 

gl_widow=.T. enable widow checking 

CONTINUE 
ENDDO 



IF gljirntflg 
DO Rsuss 

IF _plinenc <= gn_atline 
EJECT PAGE 
ENDIF 
ELSE 

DO Rsuttfi 
DO Reset 
RETURN 
ENDIF 

ON PAGE 
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IDPRINTJCB 



) Reset 
'.mh 

ED^: B:\9UALRPT. FF;B 

- Update suffisary fields ar.d/cr calculated fields. 

(OCEDURE Updjars 

:turn 

EOF; UpdJ'a.^s 

■- Set flac to qet cut cf DO icoc K'.ec escace is pressed. 
tOCEDURE Prnabort 
jirntf lg=.F. 

:turn' 

EDF: Prnaco.’'t 
:0CEDURE Pgheac 

■ IIf^(gl_pla:n," , 'Page Nc.‘- ) A' C,; 

IF(gI__plain, ■ ' ,_cagenc) PICTJRE "9??" rT 9,; 

Dual list for;" AT 21 



- P'int HEA2INE pa’^aceter le. ^.E^DRi FOP^ <na.:e' HEhDINB ^e-;C 
•NOT. gl_plain .AND. gp^lecgth > 0 

V gcjeeding FUNCTICN *^1 ;V'+LTR]^{5TR(_rrarg-- Jra’-gr 1 ) 

7 

IDIF 

' !IF(gI j)lain, ' ■ ,gd_date) 0,t 
rise FL'NCTICN "T" AT !S,i 
ii FUNCTION AT 31,; 
nase FUNCTION ”T' AT 34 



‘ “QUAL_NA“E" AT t,; 
CONPANY" AT 17,; 
TATE‘ AT 29,; 
'INSTRUCTORS AT 39 



:turn 

EOF; Pghead 



JOCEDURE ^Detail 

• gn jjspace < Qrjtline - (_pspacing I £ + 1) 

IF gl_widcw .AND. irerc+gnj-space > gn_3tlire + 1 
EJECT FA5E 
ENDIF 
<DIF 

) Upd_Vars 
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9ual_natte FUNCTION AT 5,; 

Cospany FUNCTION !7,; 

Date AT 29,; 

Instriictor FUNCTION “T^ AT 39 

7 

RETURN 

I EOF: _Detail 
PROCEDURE Rsuis£ 

glJandl = .F. U last page ^ir.isNec 

7 

RETURN 

t EOF; Rsusr 



PROCEDURE pQfoot 
PRIVATE Jcj;, _pspacin; 

Ql_^w:do«=.F. U disable widow cheshno 

_P5pacii}g=i 

9 

IF .NOT. Ql_pl3in 
ENDIF 

EJECT PA5E 

t— 15 the page r-ueter greater tfiar the ending page 
IF _page^o > _pepaqe 
50T0 BDTTCN 
SKIP 

gn Jevel=0 

ENDir” 

IF .NOT. gljjlar .AND. gI_-farPl 
j)spacing=gn_pspa:e 
Du Pghead 
ENDIF 
RETURN 

I EOF: Pqfcot 

I— Process page break when PLAIN option is used. 

PROCEDURE Pgplain 

PRIVATE Jos 

EJECT PABE 

RETURN 

I EOF: Pgplain 

Reset dBASE environsent prior to calling report 
PROCEDURE Reset 
SET SPACE ^c^space. 

SET TALK igcJaU. 

ON ESCAPE 
ON PAGE 
RETURN 

I EOP; Reset 
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